如何根據 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 工作簿時發送電子郵件提醒或通知？