如何在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中到期日到达时发送电子邮件？