如何在Excel中发送带有多个附件的电子邮件？

本文讨论通过Outlook发送带有多个附件的Excel电子邮件。

使用VBA代码在Excel中发送带有多个附件的电子邮件

使用VBA代码在Excel中发送带有多个附件的电子邮件

请按照以下步骤操作以在Excel中发送带有多个附件的电子邮件。

1. 请点击“开发工具”>“插入”>“命令按钮（ActiveX控件）”来插入一个命令按钮。见截图：

2. 插入命令按钮后，请右键单击它并从上下文菜单中选择“ 查看代码”。

3. 在打开的Microsoft Visual Basic for Applications窗口中，请点击“工具”>“引用”，如下图所示。

4. 在“引用 - VBAProject”对话框中，请找到并勾选“ Microsoft Outlook对象库 ”选项，然后点击“确定”按钮。

5. 然后用以下VBA代码替换代码窗口中的原始代码。

VBA代码：在Excel中发送带有多个附件的电子邮件

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

注意：请通过更改.To = happy.xuebi@163.com、.Subject = "test" 和 .HTMLBody = "test" 行中的变量来指定您的电子邮件收件人、主题和正文。

6. 同时按下Alt + Q键退出Microsoft Visual Basic for Applications窗口。

7. 点击“开发工具”>“设计模式”以关闭设计模式。见截图：

8. 单击命令按钮运行代码。在弹出的“浏览”窗口中，选择需要附加到邮件中的文件，然后单击“确定”按钮。见截图：

9. 然后会创建一封包含指定字段和附件的电子邮件。请单击“发送”按钮发送它。见截图：

注意：此VBA代码仅在您使用Outlook作为电子邮件程序时有效。

相关文章：

• 如何在Excel中向单元格中指定的电子邮件地址发送电子邮件？
• 如何在Excel中将指定区域复制粘贴到电子邮件正文中发送电子邮件？
• 当通过Excel中的VBA发送时，如何在Outlook电子邮件中插入签名？
• 如果在Excel中到期日已到，如何发送电子邮件？
• 如何根据Excel中的单元格值自动发送电子邮件？