如何在Excel中點擊按鈕時發送電子郵件？

假設您需要通過點擊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

4. 同時按下 Alt + Q 鍵以關閉 Microsoft Visual Basic for Applications 窗口。

5. 點擊開發工具 > 設計模式以關閉設計模式。參見截圖：

從現在開始，每次您點擊命令按鈕時，都會自動創建一封帶有指定收件人、主題和正文的電子郵件。請點擊發送按鈕發送郵件。

注意：此 VBA 代碼僅在您使用 Outlook 作為電子郵件程序時有效。

相關文章：

• 如何根據 Excel 中的單元格值自動發送電子郵件？
• 如何在 Excel 中保存工作簿時通過 Outlook 發送電子郵件？
• 如何在 Excel 中修改某個單元格時發送電子郵件？
• 如何在 Excel 中到期日到達時發送電子郵件？
• 如何在 Excel 中更新工作簿時發送電子郵件提醒或通知？