使用 VBA 發送電子郵件：11 個簡單步驟即可學習

Visual Basic for Applications 或 VBA 是一種功能強大但簡單的編程語言，可讓您最大限度地自動化 Microsoft Excel。其中一種自動化是使用 VBA 代碼集成其他 Microsoft 應用程序（例如 Outlook、PowerPoint 和 Word）並提高工作效率。

在 Excel 中使用 VBA 發送電子郵件就是這樣一種集成，它通過自動化電子表格或報告郵寄任務使您的生活變得更輕鬆。本教程將通過簡單易懂的步驟引導您完成使用 VBA 從 Excel 發送電子郵件的步驟。

Microsoft Outlook 對像庫激活

您需要設置 Outlook 的發送電子郵件對象引用，因為它是Excel VBA的外部對象。請按照以下步驟操作：

• 通過單擊“文件” > “另存為” > 選擇位置並更改“保存類型”，將現有 Excel 文件另存為啟用宏的文件。
• 按Alt+F11打開 VBA 代碼編輯器，然後單擊頂部菜單欄上的“工具” 。

• 從那裡，選擇引用，然後滾動可用引用列表以查找Microsoft Outlook 16.0 Object Library。
• 選擇對象並單擊“確定”退出“可用引用”列表。

使用 VBA 發送電子郵件：編寫代碼並執行

現在您已在 Excel VBA 中啟用了 Outlook 對象，請按照以下步驟編寫 Excel 宏並執行該宏：

• 確保您位於 VBA 代碼編輯器界面。現在，在 Excel VBA 的頂部菜單中查找“插入”選項卡。
• 單擊“插入”，然後選擇“模塊”以插入一個可以在其中編寫 VBA 代碼的模塊。
• 現在，將以下 VBA 腳本複制粘貼到新創建的模塊中。

Sub send_email_with_VBA() Dim EmailApp As Outlook.Application Dim Source As String Set EmailApp = New Outlook.Application Dim EmailItem As Outlook.MailItem Set EmailItem = EmailApp.CreateItem(olMailItem) EmailItem.To = "[email protected]" EmailItem.CC = "[email protected]" EmailItem.BCC = "[email protected]" EmailItem.Subject = "客戶訂單發貨狀態" EmailItem.HTMLBody = "嗨，團隊" & vbNewLine & vbNewLine & "PFA 今天訂單的電子表格status" & _ vbNewLine & vbNewLine & _ "問候" & vbNewLine & _ "Tamal Das" Source = ThisWorkbook.FullName EmailItem.Attachments.Add Source EmailItem.Send End Sub

上述代碼將使用您的 Outlook 帳戶向代碼中提到的電子郵件地址發送一封電子郵件。

電子郵件內容也可以在EmailItem.HTMLBody代碼行中找到。此外，Excel VBA 會自動將您的源工作簿作為附件附加到電子郵件中。

您可以進行以下更改來個性化地址和電子郵件正文：

• 將報價中的所有電子郵件地址替換為您自己的Outlook 聯繫人。
• 根據您的需要自定義報價中的EmailItem.Subject文本。
• 在EmailItem.HTMLBody代碼中，您可以使用自己的內容替換引號內的所有文本。
• 現在，按F5運行 VBA 腳本。

要成功使用 VBA 發送電子郵件，您需要在 Microsoft Office 套件的獨立 Outlook 應用程序中配置 Gmail 帳戶或 Outlook 帳戶。基於在線瀏覽器的 Outlook 無法使用此 VBA 代碼。

結論

既然您已經按照上述使用 VBA 發送電子郵件的步驟進行操作，那麼您應該可以更輕鬆地在 Excel 中自動執行日常任務。例如，當協作者更新工作表時，讓電子表格文件自動向您發送電子郵件。此外，當您更新 Excel 中的訂單狀態列時，會自動向客戶發送電子郵件。

如果您希望使用 VBA 實現更多 Excel 自動化，請利用VBA 時間戳編碼來保留電子表格更改的日誌。