宏將文件的保存版本附加到電子郵件

Question

我有一個宏附加到命令按鈕，用於準備用戶發送的電子郵件。問題是，用戶必須記住在按下發送按鈕之前保存文檔。我寧願不依賴用戶記住保存，它留下太多的錯誤空間。在SendEmail宏之前是否可以輸入一個宏來自動保存文檔？這是我到目前爲止有：

Sub SendEmail() 
Dim OutApp As Object 
Dim OutMail As Object 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 

On Error Resume Next 
With OutMail 
    .to = "me" 
    .Subject = "Completed Testing Schedule " & Date 
    .Attachments.Add ActiveWorkbook.FullName 
    .Display 
End With 
On Error GoTo 0 

Set OutMail = Nothing 
Set OutApp = Nothing 
End Sub 

Answer 1

當然，您發送電子郵件之前，你可以這樣做：

Documents.Save NoPrompt:=True, OriginalFormat:=wdOriginalDocumentFormat

或

If ActiveDocument.Saved = False Then ActiveDocument.Save

您可能希望在此之前加上Application.DisplayAlerts = False，所以你沒有看到那個通知「你想保存」，然後把Application.DisplayAlerts = True之後，重新開啓通知。

編輯：這是不清楚，如果你從Excel運行這，我認爲你是。