如何使用 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 應用程序後，請執行以下步驟：

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

擴展設置

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

1. 單擊插入，然後選擇模塊以打開代碼編輯器。
2. 將以下代碼複製粘貼到 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
    

1. 在代碼第 3 行（“ Worksheet_Name ”）中輸入當前工作表名稱。
2. 單擊菜單中的保存以保存腳本。
3. 您可以按F5運行宏，Excel 將自動通過 Outlook 發送電子郵件。

訪問宏

• 您還可以稍後從 Excel 功能區的“開發人員”選項卡訪問此宏。

結論

現在您已經了解如何使用 Excel VBA 從 Outlook 發送批量電子郵件，您可以輕鬆發送批量電子郵件，而無需在手動發送電子郵件上浪費時間。

想要學習 Excel 的另一個 VBA 技巧嗎？通過本教程，了解如何使用 VBA 在 Excel 中自動進行拼寫檢查。