如何在 Excel 中點擊按鈕即可寄送電子郵件？

作者Siluvia修改日期2024-11-05

想在 Excel 工作表中一鍵點擊按鈕，就能透過 Outlook 寄送電子郵件嗎？本文將詳細介紹如何運用 VBA 輕鬆實現這項實用功能！

透過 VBA 程式碼在點擊按鈕時寄送電子郵件

透過 VBA 程式碼在點擊按鈕時寄送電子郵件

請依照下列步驟操作：當您在 Excel 工作表中點擊命令按鈕時，即可透過 Outlook 寄送電子郵件。

1. 點擊開發人員 > 插入 > 命令按鈕（ActiveX 控制項），即可在工作表中插入命令按鈕。請參閱截圖：

2. 在插入的命令按鈕上按一下右鍵，然後從右鍵選單中點選檢視程式碼，如下方截圖所示。

3. 在開啟的 Microsoft Visual Basic for Applications 視窗中，請將程式碼視窗內的原始程式碼替換為以下 VBA 腳本。

VBA 程式碼：在 Excel 中點擊按鈕時寄送電子郵件

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Body content" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
                  On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Test email send by button clicking"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

注意事項：

1）。請根據需求，修改程式碼中 xMailBody 行的郵件內文。

2）。請將第郵箱地址行中的收件人郵箱地址替換為 .To = "郵箱地址“。

3）。請根據需求，在 .CC = “”與 .Bcc = “”區段中分別指定副本（Cc）及密件副本（Bcc）收件人。

4）。請修改第 .Subject = "Test email send by button clicking"行中的郵件主旨。

4. 同時按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

5. 點擊開發人員> 設計模式 即可關閉設計模式。請參閱截圖：

從現在起，每次點擊命令按鈕，系統將自動建立一封包含指定收件人、主旨與內文的電子郵件。立即點擊傳送按鈕，即可寄出郵件！

注意：此 VBA 程式碼僅適用於以 Outlook 作為電子郵件程式的情況。

寄送電子郵件功能是 Kutools for Excel 的一部分，可協助您根據 Excel 中已建立的郵件列表欄位，透過 Outlook 輕鬆寄送電子郵件！
立即下載試用！

展示 Kutools for Excel 的「傳送電子郵件」功能的螢幕截圖

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多