如何在Excel中當工作簿更新時發送電子郵件提醒或通知？

在某些情況下，如果已發送的工作簿中有數據更新，您可能需要觸發一封電子郵件通知給指定的收件人。本文將向您展示實現此功能的方法。

使用VBA代碼在工作簿更新時發送電子郵件提醒或通知

使用VBA代碼在工作簿更新時發送電子郵件提醒或通知

請按照以下步驟操作，在工作簿更新時發送電子郵件提醒或通知。

1. 在工作簿中，打開一個指定的工作表，該工作表內的更新數據將作為發送電子郵件通知的依據。

2. 右鍵單擊工作表標籤，然後從右鍵菜單中選擇「 檢視代碼」。參見截圖：

2. 在 Microsoft Visual Basic for Applications窗口中，將以下代碼複製並粘貼到代碼窗口中。參見截圖：

VBA代碼：在工作簿更新時發送電子郵件提醒或通知

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    Dim xYesOrNo As Integer
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
    If xYesOrNo = 6 Then ActiveWorkbook.Save
    If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .cc = ""
        .Subject = "email notification test"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        If xYesOrNo = 6 Then .Attachments.Add xName
        .Display
    End With
    xMailItem = Nothing
    xOutApp = Nothing
End Sub

注意：將行.To = "Email Address"中的電子郵件地址替換為收件人的電子郵件地址。並根據需要更改VBA代碼中的抄送、主題以及正文字段。

3. 按Alt + Q鍵關閉Microsoft Visual Basic for Applications窗口。

4. 在工作表中編輯單元格後，會彈出如下截圖所示的Kutools for Excel對話框。如果要在郵件中附加更新後的工作簿，請點擊「是」按鈕。如果不附加，請點擊「否」按鈕。

5. 然後自動創建一封電子郵件，附帶或不附帶更新後的工作簿。所有指定的字段都包含在電子郵件中。請點擊「發送」按鈕進行發送。

注意：此VBA代碼僅在您使用Outlook作為電子郵件程序時有效。

相關文章：

• 如何根據Excel中的單元格值自動發送電子郵件？
• 如何在Excel中保存工作簿時通過Outlook發送電子郵件？
• 如何在Excel中某個單元格被修改時發送電子郵件？
• 如何在Excel中點擊按鈕時發送電子郵件？
• 如何在Excel中到期日到達時發送電子郵件？