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

作者Siluvia修改日期2024-09-20

本文將說明如何在 Excel 中透過 Outlook 寄送包含多個附件的電子郵件。

使用 VBA 程式碼在 Excel 中寄送附帶多個附件的電子郵件

使用 VBA 程式碼在 Excel 中寄送附帶多個附件的電子郵件

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

請依照下列步驟，在 Excel 中寄送附帶多個附件的電子郵件。

1. 請點選開發人員 > 插入 > 命令按鈕（ActiveX 控制項）。請參閱螢幕截圖：

從開發人員索引標籤按一下命令按鈕

2. 插入命令按鈕後，請對其按一下滑鼠右鍵，並從內容功能表中選取檢視程式碼。

從內容功能表中選取檢視程式碼

3. 在開啟的 Microsoft Visual Basic for Applications 視窗中，請點選工具＞ 參考設定，如下方螢幕截圖所示。

按一下工具 > 參考

4. 在 參考設定 – VBAProject對話方塊中，請勾選 Microsoft Outlook 物件程式庫選項，然後按一下確定按鈕。

在對話方塊中勾選 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 作為電子郵件程式的情況。

寄送電子郵件功能是 Kutools for Excel 的一部分，可協助您根據 Excel 中建立的郵件清單，透過 Outlook 輕鬆寄送電子郵件。
立即下載試用！（30 天免費試用））

透過 Kutools 傳送帶有附件的電子郵件

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多