如何根據 Excel 儲存格中的數值自動寄送電子郵件？

作者Siluvia修改日期2024-11-28

在 Excel 中，您可以根據特定條件（例如某儲存格的數值）自動化寄送電子郵件的流程。舉例來說，當儲存格 D7 的數值超過 200 時，系統即可自動透過 Outlook 寄出電子郵件。本教學將示範如何運用 VBA（Visual Basic for Applications），依據儲存格數值自動觸發 Outlook 郵件發送功能。

使用 VBA 程式碼根據儲存格數值自動寄送電子郵件

使用 VBA 程式碼根據儲存格數值自動寄送電子郵件

請依照下列步驟，在 Excel 中根據儲存格的數值自動寄送電子郵件。

1. 在需根據儲存格數值（此處為儲存格 D7）寄送電子郵件的工作表中，請以滑鼠右鍵點擊工作表標籤，然後從快捷功能表中選取檢視程式碼。請參閱螢幕截圖：

Excel 中顯示工作表「檢視程式碼」選項的內容功能表截圖

2. 在彈出的 Microsoft Visual Basic for Applications 視窗中，請將下方的 VBA 程式碼複製並貼上至工作表程式碼視窗內。

VBA 程式碼：根據 Excel 中的儲存格數值透過 Outlook 寄送電子郵件

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

注意事項：

1）在 VBA 程式碼中，D7 與 value > 200 是您用來決定是否寄送電子郵件的儲存格及其數值條件。

2）請依需求在程式碼的 xMailBody 行中修改電子郵件內文。

3）請將第 .To = "郵箱地址“行中的郵箱地址替換為收件者的郵箱地址。

4）並依需求在 .CC = “”與 Bcc = “”區段中指定副本（Cc）與密件副本（Bcc）收件者。

5）最後，請在第 .Subject = "send by cell value test"行中修改郵件標題。

3. 按下 Alt+Q 鍵組合，即可立即關閉 Microsoft Visual Basic for Applications 視窗！

從現在起，當您在儲存格 D7 輸入的數值大於 200 時，Outlook 將自動建立一封包含指定收件者與內文的電子郵件。只需點擊傳送按鈕，即可立即寄出！請參閱螢幕截圖：

Outlook 中根據 Excel 儲存格值自動建立的電子郵件草稿截圖

注意事項：

1. 此 VBA 程式碼僅當您使用 Outlook 作為電子郵件程式時才有效。

2. 若在儲存格 D7 中輸入的文字值，同樣會觸發電子郵件視窗彈出。

寄送電子郵件功能是 Kutools for Excel 的強大組成部分，能協助您根據 Excel 中建立的郵件列表，透過 Outlook 輕鬆寄送電子郵件！

Kutools for Excel 的「傳送電子郵件」工具介面截圖

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多