如何在Excel中發送帶有多個附件的電子郵件？

本文介紹了如何通過Outlook發送帶有多個附件的Excel電子郵件。

使用VBA代碼在Excel中發送帶有多個附件的電子郵件

使用VBA代碼在Excel中發送帶有多個附件的電子郵件

請按照以下步驟操作，以在Excel中發送帶有多個附件的電子郵件。

1. 請點擊「開發工具」>「插入」>「命令按鈕（ActiveX 控件）」來插入一個命令按鈕。參見截圖：

2. 插入命令按鈕後，請右鍵單擊它並從上下文菜單中選擇「 查看代碼」。

3. 在打開的 Microsoft Visual Basic for Applications 窗口中，請點擊「工具」>「引用」，如下截圖所示。

4. 在「引用 - VBAProject」對話框中，請找到並勾選 「Microsoft Outlook Object Library」 選項，然後點擊「確定」按鈕。

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中的單元格值自動發送郵件？