如何在Excel中某个单元格被修改时发送电子邮件？

本文讨论的是当Excel中某个特定范围内的单元格被修改时，通过Outlook发送电子邮件的方法。

使用VBA代码在某个范围内单元格被修改时发送电子邮件

使用VBA代码在某个范围内单元格被修改时发送电子邮件

如果需要在某个工作表的A2:E11区域中的单元格被修改时自动创建一封带有当前工作簿附件的新邮件，以下VBA代码可以帮助您实现。

1. 在需要根据其指定区域内修改的单元格发送电子邮件的工作表中，右键单击工作表标签，然后从上下文菜单中选择“ 查看代码”。请参见截图：

2. 在弹出的Microsoft Visual Basic for Applications窗口中，请将以下VBA代码复制并粘贴到代码窗口中。

VBA代码：在Excel中某个指定区域内的单元格被修改时发送电子邮件

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
    Dim xRgSel As Range
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xMailBody As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xRg = Range("A2:E11")
    Set xRgSel = Intersect(Target, xRg)
    ActiveWorkbook.Save
    If Not xRgSel Is Nothing Then
        Set xOutApp = CreateObject("Outlook.Application")
        Set xMailItem = xOutApp.CreateItem(0)
        xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
            " in the worksheet '" & Me.Name & "' were modified on " & _
            Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
            " by " & Environ$("username") & "."

        With xMailItem
            .To = "Email Address"
            .Subject = "Worksheet modified in " & ThisWorkbook.FullName
            .Body = xMailBody
            .Attachments.Add (ThisWorkbook.FullName)
            .Display
        End With
        Set xRgSel = Nothing
        Set xOutApp = Nothing
        Set xMailItem = Nothing
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

注意：

3. 同时按下Alt + Q键以关闭Microsoft Visual Basic for Applications窗口。

从现在开始，只要A2:E11区域内的任何单元格被修改，就会创建一封带有更新后工作簿附件的新邮件，并且所有指定字段（如主题、收件人和邮件正文）都会列在邮件中。请发送该邮件。

注意：此VBA代码仅在您使用Outlook作为电子邮件程序时有效。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何根据Excel中的单元格值自动发送电子邮件？
• 如何在Excel中保存工作簿时通过Outlook发送电子邮件？
• 如何在Excel中点击按钮时发送电子邮件？
• 如何在Excel中达到截止日期时发送电子邮件？
• 如何在Excel中工作簿更新时发送电子邮件提醒或通知？