本文讨论的是在Excel中保存特定工作簿时通过Outlook发送电子邮件。 请按照本教程中的说明进行操作。
若要在工作簿保存在Excel中时通过Outlook发送电子邮件，请执行以下操作。
1.请首先将工作簿另存为Excel Macro-Enabled Workbook。 请点击 文件 > 另存为。 在 另存为 对话框中，选择一个文件夹来保存工作簿，在“文件名”框中将其命名，然后选择 Excel启用宏的工作簿 来自 保存类型 下拉列表，然后单击 优惠 按钮。 看截图：
2.打开刚才保存的Excel Macro-Enabled Workbook，按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。
2。 在里面 Microsoft Visual Basic应用程序 窗口，请双击 的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应用程序 窗口。
从现在开始，当您更新并保存工作簿时，将自动创建一封电子邮件，其中附有更新的工作簿。 请点击 发送 按钮发送电子邮件。 看截图：
备注：仅当您将Outlook用作电子邮件程序时，VBA代码才起作用。
