本文討論的是在Excel中保存特定工作簿時通過Outlook發送電子郵件。 請按照本教程所示進行操作。
若要在工作簿保存在Excel中時通過Outlook發送電子郵件，請執行以下操作。
1.請首先將工作簿另存為Excel Macro-Enabled Workbook。 請點擊 文件 > 另存為。 在 另存為 對話框中，選擇一個文件夾來保存工作簿，在“文件名”框中將其命名，然後選擇 Excel啟用宏的工作簿 來自 保存類型 下拉列表，然後單擊 慳了 按鈕。 看截圖：
2.打開剛才保存的Excel Macro-Enabled Workbook，按 其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。
2。 在裡面 Microsoft Visual Basic for Applications 窗口，請雙擊 的ThisWorkbook 在左側欄中，然後將以下VBA代碼複製並粘貼到 的ThisWorkbook 代碼窗口。 看截圖：
VBA代碼：保存工作簿時發送電子郵件
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Sub備註：請更換 電郵地址 收件人電子郵件地址在一行 .To =“電子郵件地址”和 根據需要在VBA代碼中更改抄送，主題以及正文字段。
3。 按 其他 + Q 同時關閉按鍵 Microsoft Visual Basic for Applications 窗口。
從現在開始，當您更新並保存工作簿時，將自動創建一封電子郵件，其中附有更新的工作簿。 請點擊 發送 按鈕發送電子郵件。 看截圖：
備註：僅當您將Outlook用作電子郵件程序時，VBA代碼才起作用。
