如何在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中更新工作簿时发送电子邮件提醒或通知？