手作業で保存するプロンプトを生成するのではなくフォームを自動的に保存します

Question

私は送信ボタンがあるフォームを持っています。私は自分のPCでそれを行うとうまくいくが、他の誰かがファイルを保存していないと、それを保存するよう促す。私はそれを送信する前にドキュメントフォルダに自動的に保存するものを追加できるかどうか疑問に思っていました。

Private Sub CommandButton1_Click() 
    Dim OL    As Object 
    Dim EmailItem  As Object 
    Dim Doc    As Document 

    Application.ScreenUpdating = False 
    Set OL = CreateObject("Outlook.Application") 
    Set EmailItem = OL.CreateItem(olMailItem) 
    Set Doc = ActiveDocument 
    Doc.Save 

    With EmailItem 
     .Subject = "subject" 
     .Body = "BODY MESSAGE" 
     .To = "email here" 
     .Importance = olImportanceNormal 
     .Attachments.Add Doc.FullName 
     .Display 
    End With 

    Application.ScreenUpdating = True 

    Set Doc = Nothing 
    Set OL = Nothing 
    Set EmailItem = Nothing 
End Sub 

Answer 1

私は本当にあなたの質問を得た場合、私は知りません。このプロンプトが表示されないようにしますか？

Set Doc = ActiveDocument 
Doc.Save 

これでドキュメントが保存されます。保存しない場合は、それらの行を削除してください。