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

在當前的商業環境中，Visual Basic for Applications（VBA）是一種難以匹敵的工具，能夠讓用戶自動化 Microsoft Excel 中的日常任務。透過此程式語言，您可以整合 Microsoft Office 的其他應用程式，例如 Outlook、PowerPoint 和 Word，以提高工作效率。

本教程將為您提供使用 VBA 從 Excel 發送電子郵件的分步指導，幫助您輕鬆管理電子郵件任務。

1. 啟用 Microsoft Outlook 對象庫

要使用 Excel VBA 發送電子郵件，首先需要設置 Outlook 的對象引用。請按照以下步驟操作：

• 通過單擊“文件” > “另存為”，選擇位置並將現有 Excel 文件另存為啟用宏的文件。
• 按 Alt+F11 打開 VBA 代碼編輯器，在菜單中選擇 “工具”。

• 選擇 引用，然後在可用引用列表中找到 Microsoft Outlook 16.0 Object Library。
• 選擇該對象並單擊 “確定” 退出可用引用列表。

2. 編寫並執行 VBA 代碼

現在您已啟用 Outlook 對象，請遵循以下步驟編寫 VBA 宏並執行：

• 在 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 會自動將您的工作簿附加為電子郵件附件。

定制您的電子郵件

要個性化地址和電子郵件正文，您可以做以下修改：

1. 將代碼中的所有電子郵件地址替換為您的 Outlook 聯繫人。
2. 根據需要自定義 EmailItem.Subject 的文本。
3. 在 EmailItem.HTMLBody 中，更改引號內的內容。
4. 按 F5 鍵運行 VBA 腳本。

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

3. 結論

通過上述步驟，您應該能夠在 Excel 中輕鬆實現電子郵件的自動發送。比如說，您可以在協作者更新工作表時自動接收電子郵件，或在 Excel 中更新訂單狀態列時通知客戶。

如果您希望利用 VBA 實現更多 Excel 自動化功能，請探索 VBA 時間戳 的應用，以記錄電子表格的更改日誌。