如果在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。 按 其他 + Q 同時關閉按鍵 Microsoft Visual Basic for Applications 窗口。

5.通過單擊關閉設計模式 開發者 > 設計模式。 看截圖：

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

備註：僅當您將Outlook用作電子郵件程序時，VBA代碼才起作用。

相關文章：

• 如何基於Excel中的單元格值自動發送電子郵件？
• 當工作簿保存在Excel中時，如何​​通過Outlook發送電子郵件？
• 如果在Excel中修改了某個單元格，該如何發送電子郵件？
• 如果在Excel中已達到到期日期，如何發送電子郵件？
• 如果在Excel中更新了工作簿，如何發送電子郵件提醒或通知？