如何使用 Excel VBA 從 Outlook 發送批量電子郵件

您是否需要向您的客戶、顧客、朋友或任何其他聯繫人發送個性化的群發電子郵件？您想通過單擊一下來完成此操作嗎？那是可能的！Microsoft Excel中有一個神奇的工具可以完成所有這些工作。它是 Visual Basic for Applications，又名 Excel VBA。

繼續閱讀以了解如何使用 Excel VBA 從 Outlook 發送批量電子郵件。還有更多！您可以按照下面教程中提到的最簡單的步驟進行練習。讓我們深入挖掘吧！

發送批量電子郵件所需的準備

當前教程將為您提供從 Excel 自動發送批量電子郵件所需的 VBA 代碼。您所需要做的就是將數據收集到一個 Excel 文件中並執行一些快速格式化。

系統要求

您將運行的 VBA 程序需要使用 Microsoft Outlook 作為電子郵件發送應用程序。因此，您需要在計算機上安裝並配置 Outlook。請注意，基於網頁的 Outlook 程序將無法使用 VBA 代碼。

步驟指導

準備好 Excel 文件和 Outlook 應用程序後，請執行以下步驟：

將批量電子郵件工作表組織成 6 列。
在 A1 行中輸入標題：電子郵件至 (A)；電子郵件抄送 (B)；電子郵件主題 (C)；電子郵件正文 (D)、附件 (E)、狀態 (F)。
在 A 列下添加所有“收件人地址”。如果需要，您可以添加數千封電子郵件。
在 B 列下輸入“CC 地址”。
個性化電子郵件主題：在 C 列為每個聯繫人添加自定義電子郵件主題。
編寫電子郵件正文：將內容複製並粘貼到 D 列下。
添加附件：將文件附件位置複製並粘貼到 E 列。
獲取附件位置：按 Shift 並選擇目標文件，然後右鍵單擊選擇 複製為路徑。
將文件地址直接粘貼到 E 列的行中。
將 F 列留空，因為 VBA 代碼將自動填充狀態。

如何使用 Excel VBA 從 Outlook 發送批量電子郵件

擴展設置

將 Excel 工作表另存為啟用宏的文件。
按 Alt+F11 打開 VBA 代碼編輯器。
在上方菜單中，單擊工具，然後選擇引用。
在列表中查找Microsoft Office 16.0 對象庫並選中該框。
單擊確定，將 Outlook 保存為 VBA 的對象。

如何使用 Excel VBA 從 Outlook 發送批量電子郵件

單擊插入，然後選擇模塊以打開代碼編輯器。
將以下代碼複製粘貼到 Module 中：

    Sub Send_Bulk_Mails()
        Dim sh As Worksheet
        Set sh = ThisWorkbook.Sheets("Worksheet_Name")
        Dim i As Integer
        Dim OA As Object
        Dim msg As Object
        Set OA = CreateObject("outlook.application")
        Dim last_row As Integer
        last_row = Application.CountA(sh.Range("A:A"))
        For i = 2 To last_row
            Set msg = OA.createitem(0)
            msg.To = sh.Range("A" & i).Value
            msg.CC = sh.Range("B" & i).Value
            msg.Subject = sh.Range("C" & i).Value
            msg.Body = sh.Range("D" & i).Value
            If sh.Range("E" & i).Value <> "" Then
                msg.Attachments.Add sh.Range("E" & i).Value
            End If
            msg.Send
            sh.Range("F" & i).Value = "Sent"
        Next i
        MsgBox "所有電子郵件已發送"
    End Sub