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

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

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

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

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

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

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

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

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

• 現在，單擊“插入”，然後選擇“模塊”以打開代碼編輯器。
• 將下面提到的代碼複製粘貼到 Module中。

Sub Send_Bulk_Mails() Dim sh 作為工作表集 sh = ThisWorkbook.Sheets("Worksheet_Name") Dim i 作為整數 Dim OA 作為對象 Dim msg 作為對象集 OA = CreateObject("outlook.application") Dim last_row 作為整數 last_row = 應用程序。 CountA(sh.Range("A:A")) 對於 i = 2 到last_row 設置 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 <> "" 然後 msg.attachments.Add sh.Range("E" & i).Value End If msg.send sh.Range("F" & i).Value = "Sent" Next i MsgBox "所有電子郵件已發送" End Sub

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

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

結論

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

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