如果在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 =“電子郵件地址”。 並根據需要更改“抄送”，“主題”以及VBA代碼中的“正文”字段。

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

4.編輯工作表中的單元格後， Excel的Kutools 將彈出對話框，如下圖所示。如果您想在電子郵件中附加更新的工作簿，請按一下 充足 按鈕。 如果沒有，請單擊 沒有 按鈕。

5. 然後會自動建立一封電子郵件，無論是否附加更新的工作簿。所有指定欄位均包含在電子郵件中。請點選 發送 按鈕發送。

備註：僅當您將Outlook用作電子郵件程序時，VBA代碼才起作用。

相關文章：

• 如何基於Excel中的單元格值自動發送電子郵件？
• 當工作簿保存在Excel中時，如何​​通過Outlook發送電子郵件？
• 如果在Excel中修改了某個單元格，該如何發送電子郵件？
• 如果在Excel中單擊按鈕，如何發送電子郵件？
• 如果在Excel中已達到到期日期，如何發送電子郵件？