如何透過 Outlook 從 Excel 向清單中的多位收件者傳送電子郵件？

作者曉陽修改日期2025-10-27

在許多職場情境中，您可能需要處理 Excel 工作表中某一欄位所儲存的電子信箱清單，例如發送電子報、寄送發票，或通知活動參與者。與其手動逐一輸入地址，或另外開啟 Outlook 撰寫郵件，不如直接讓 Excel 整合 Outlook，一次將郵件傳送給所有收件者，不僅節省時間，更能減少人為錯誤。本指南提供詳細的解決方案，助您高效完成這項任務。

使用 VBA 程式碼從 Excel 向多位收件者傳送電子郵件

使用 VBA 程式碼，以當前工作簿作為附件向多位收件者傳送電子郵件

替代方案：使用 Excel 公式以分號分隔郵箱地址

使用 VBA 程式碼從 Excel 向多位收件者傳送電子郵件

若您希望一次向多位收件者傳送相同郵件，且其電子郵件地址已儲存在工作表欄位中，可透過 VBA 程式碼自動完成此作業。此方法特別適合用於批次通知或群組更新，無需在 Outlook 中逐一新增收件者。請依照下列步驟操作：

1. 按下 ALT + F11，即可開啟 Microsoft Visual Basic for Applications 視窗。若您尚未啟用「開發人員」索引標籤，相關說明可在 Excel 設定中找到。

2. 在 VBA 視窗中，點選插入＞模組，系統將開啟一個空白模組視窗供您輸入程式碼。請立即貼上下列程式碼：

VBA 程式碼：向多位收件者傳送電子郵件

Sub sendmultiple()
'updateby Extendoffice
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Display
    End With
End Sub

3. 按下 F5（或點選「執行」）以執行程式碼。系統將彈出提示方塊，請從工作表中選取地址清單——輕鬆圈選所有包含所需郵箱地址的儲存格，確保僅納入符合電子郵件格式（）*@*）的收件者。請參閱截圖：

執行程式碼後選取電子郵件地址清單的螢幕截圖

4. 選取地址後，點選確定，Outlook 將自動開啟新的郵件視窗，並將所選地址自動填入收件者欄位。您可依需求設定主旨、撰寫內容，並利用視窗提供的編輯功能進行個人化調整或補充說明，輕鬆完成專業郵件！請參閱截圖：

建立的電子郵件螢幕截圖，所有選取的電子郵件地址皆列於「收件者」欄位中

5. 完成郵件內容後，點選傳送按鈕，即可同時寄送郵件給所有列示的收件者，確保不遺漏任何地址，並大幅提升群組溝通效率！

提示：請確認已安裝 Outlook 並設為預設電子郵件用戶端，此方法才能正常運作。若未出現提示方塊，請再次檢查 Excel 中的巨集安全性設定。

適用情境：此方法適用於團隊公告、活動通知，或需向多人傳送相同資訊的場合。優點在於傳送速度快、準確性高，且手動輸入量少；限制則是無法針對個別收件者個人化郵件內容。

疑難排解：若 Outlook 郵件視窗未開啟，請確認 Outlook 是否正常運作，並已設為預設郵件處理程式。同時，請確保所有選取的儲存格皆包含有效的電子信箱地址—雖然程式內建錯誤處理機制，但為達最佳效果，仍應避免選取空白或格式不正確的儲存格。

向多位收件者傳送含不同附件的個人化郵件：

針對更進階的需求，例如傳送專屬附件、自訂郵件內容，或自動加入寄件備份（CC）／密件副本（Bcc），Kutools for Excel 的傳送電子郵件功能可讓您透過 Outlook 輕鬆快速地從 Excel 發送個人化郵件。此功能支援為每位收件者量身打造郵件內容、附加不同檔案，並依需求指定抄送（CC）或密件副本（Bcc）收件人，實現更靈活高效的大量郵件寄送！立即點擊下載 Kutools for Excel！

使用 Kutools 的「傳送電子郵件」功能，輕鬆向多位收件者發送附帶不同附件的個人化郵件的螢幕截圖

使用 VBA 程式碼，以當前工作簿作為附件向多位收件者傳送電子郵件

若您需要將目前的 Excel 工作表作為附件傳送給多位收件者，下列 VBA 解決方案可協助您自動化此流程。此方法非常適合用於與多位利害關係人分享報告、財務摘要或協作文件。

1. 開啟 Excel，並按下 ALT + F11 以啟動 Microsoft Visual Basic for Applications 環境。

2. 在 VBA 編輯器中，前往插入＞模組，並將下方程式碼複製貼上至模組視窗：

VBA 程式碼：以當前工作簿作為附件向多位收件者傳送電子郵件

Sub EmailAttachmentRecipients()
'updateby Extendoffice
    Dim xOutlook As Object
    Dim xMailItem As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutlook = CreateObject("Outlook.Application")
    Set xMailItem = xOutlook.CreateItem(0)
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    With xMailItem
        .To = xEmailAddr
        .CC = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set xOutlook = Nothing
    Set xMailItem = Nothing
End Sub

3. 按下 F5 執行程式碼後，系統將彈出提示，要求您選取郵箱地址儲存格。此機制可協助您輕鬆納入工作表中所有相關收件者，並確保僅加入格式正確的郵箱地址。請參閱下列截圖：

執行第二段 VBA 程式碼後選取電子郵件地址清單的螢幕截圖

4. 確認選取後，點選確定。Outlook 將自動開啟新郵件視窗，在收件者欄位中填入所選收件人，並附加目前開啟的工作簿。您可進一步自訂郵件主旨與內容後再傳送。請參閱截圖：

建立的電子郵件螢幕截圖，所有選取的電子郵件地址皆列於「收件者」欄位中，並附加目前的工作簿

5. 點選傳送按鈕，即可將附帶工作簿的郵件一次性傳送給所有選定的收件人。

注意事項：若您的工作簿包含敏感資訊，請於傳送前仔細核對收件者清單。若附加檔案時發生錯誤，請確認工作簿已儲存、未在其他程式中開啟，並確保 Outlook 已正確設定以支援自動化郵件傳送。

使用情境：此解決方案廣泛應用於定期報告分發、協作工作簿提交或與團隊及客戶共享參考檔案。此方法適合大量文件傳送，但無法為每位收件者附加不同檔案。

常見問題：若提示視窗未開啟或郵件無法傳送，請確認您已授予巨集權限，且執行程式碼前已儲存工作簿。同時請仔細檢查所選範圍是否包含空儲存格，因程式碼會跳過不符合標準電子郵件格式的內容。

替代方案：使用 Excel 公式以分號分隔郵箱地址

若您希望快速將郵箱地址清單合併至單一儲存格（以分號分隔，方便直接複製貼上至 Outlook 的）收件者、寄件備份（CC）或 密件備份（Bcc）欄位），Excel 公式提供快速簡便的解決方案，尤其適合不想使用巨集的使用者！

1. 假設您的郵箱地址位於 A 欄第 1 列至第 7 列，請在空白儲存格（例如 B1）輸入下列公式：

=TEXTJOIN(";",TRUE,A1:A7)

2. 按下 Enter，即可產生一個以分號分隔所有郵箱地址的單一字串。您可複製此儲存格，並直接貼上至 Outlook 的收件者欄位！

公式參數說明：

TEXTJOIN：使用指定分隔符號（此處為分號）串接儲存格範圍中的文字。
TRUE：排除範圍內所有空白儲存格，確保所有有效的電子信箱地址完整串接，中間絕無空缺。
A1:A10：請根據您的郵箱地址清單調整此範圍。

優點：此方法無需啟用巨集，適合 VBA 受限的環境。此外，它也適用於快速將整合清單複製至任何電子郵件平台，不僅限於 Outlook。

限制：與 VBA 不同，它不會自動建立電子郵件或自動化寄送流程，但在處理收件人清單時可提升效率。

提示：若您的清單有所變動，請同步更新公式範圍。若使用非分號分隔符的格式，請將";"替換為您偏好的字元。

如何透過 Outlook 從 Excel 向清單發送個人化大量郵件？

最佳 Office 生產力工具

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