如何根据Excel中的单元格值自动发送电子邮件？

在 Excel 中，您可以根据特定条件（例如某个单元格的值）自动发送电子邮件。例如，当单元格 D7 的值超过 200 时，您可能希望通过 Outlook 自动发送电子邮件。本教程演示了如何使用 VBA（Visual Basic for Applications）根据单元格的值触发 Outlook 中的电子邮件发送功能。

使用VBA代码根据单元格值自动发送电子邮件

使用VBA代码根据单元格值自动发送电子邮件

请按照以下步骤根据 Excel 中的单元格值发送电子邮件。

1. 在需要根据其单元格值发送电子邮件的工作表中（这里指单元格 D7），右键单击工作表标签，并从上下文菜单中选择 查看代码。参见截图：

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

VBA代码：通过Outlook根据Excel中的单元格值发送电子邮件

Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set xRg = Intersect(Range("D7"), Target)
    If xRg Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value > 200 Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub Mail_small_Text_Outlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
    On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "send by cell value test"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

注意：

3. 按 Alt + Q 键一起关闭 Microsoft Visual Basic for Applications 窗口。

从现在开始，当在单元格 D7 中输入的值大于 200 时，Outlook 中会自动生成一封带有指定收件人和正文的电子邮件。您可以单击 发送 按钮发送此电子邮件。参见截图：

注意：

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

2. 如果在单元格 D7 中输入的数据是文本值，也会弹出电子邮件窗口。

相关文章：

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