當工作簿保存在Excel中時，如何​​通過Outlook發送電子郵件？

本指南示範如何在 Excel 中儲存特定工作簿時自動透過 Outlook 傳送電子郵件。透過使用簡單的 VBA 程式碼，您可以確保無縫共享工作簿的更新。

使用VBA代碼保存工作簿時，通過Outlook發送電子郵件

使用VBA代碼保存工作簿時，通過Outlook發送電子郵件

若要在工作簿保存在Excel中時通過Outlook發送電子郵件，請執行以下操作。

1. 首先，將工作簿另存為 Excel 啟用巨集的工作簿。點選 文件 > 另存為。 在 另存為 對話方塊中，選擇儲存工作簿的資料夾，在檔案名稱方塊中輸入名稱，選擇 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 =“電子郵件地址”。 修改 Cc, 主題 美體 根據需要在 VBA 程式碼中包含欄位。

3。 按 其他 + Q 同時關閉按鍵 Microsoft Visual Basic for Applications 窗口。

從現在開始，每當您更新並儲存工作簿時，都會自動建立一封電子郵件，其中附有更新的工作簿。請點選 發送 按鈕發送電子郵件。 看截圖：

備註：此 VBA 程式碼僅在您使用 Outlook 作為電子郵件程式時才有效。

相關文章：

• 如何基於Excel中的單元格值自動發送電子郵件？
• 如果在Excel中修改了某個單元格，該如何發送電子郵件？
• 如果在Excel中單擊按鈕，如何發送電子郵件？
• 如果在Excel中已達到到期日期，如何發送電子郵件？
• 如果在Excel中更新了工作簿，如何發送電子郵件提醒或通知？