如何將電子郵件寄送到 Excel 儲存格中指定的電子信箱？

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

假設您手邊有一份郵箱地址清單，並希望直接在 Excel 中批量寄送電子郵件給這些收件人，該如何實現呢？本文將為您示範如何在 Excel 中，將郵件寄送至儲存格中指定的多個郵箱地址。

使用 VBA 在 Excel 中將電子郵件寄送至儲存格所指定的郵箱地址
 使用 Kutools for Excel 輕鬆將電子郵件寄送至儲存格所指定的郵箱地址

使用 VBA 在 Excel 中將電子郵件寄送至儲存格所指定的郵箱地址

下列 VBA 程式碼可協助您在 Excel 中將電子郵件寄送至指定的信箱地址。請依照以下步驟操作：

1. 在包含您需寄送電子郵件之郵箱地址的工作表中，同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

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

按一下工具 > 參考資料

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

尋找並勾選 Microsoft Outlook 物件庫選項

4. 接著點選插入> 模組，並將下方的 VBA 程式碼複製貼上至模組視窗中。

VBA 程式碼：在 Excel 中將電子郵件寄送至儲存格所指定的郵箱地址

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

注意：請在程式碼中，於 .Subject = "test"這一行指定您的郵件標題，並在 .Body = "Dear " _ & vbNewLine & vbNewLine & _ "This is a test email " & _ "sending in Excel"這一行設定郵件內文。

5. 按下 F5 鍵以執行程式碼。在開啟的 Kutools for Excel 對話方塊中，請選取包含您要寄送電子郵件之郵箱地址的範圍，再點擊確定按鈕。請參閱下圖：

用於選取包含電子郵件地址範圍的 VBA 程式碼

接著將根據您所選的郵箱地址建立電子郵件，如下圖所示。請點擊傳送按鈕，立即寄送這些電子郵件！

根據所選電子郵件地址建立電子郵件

注意事項：

1. 若所選儲存格中分別存在三個郵箱地址，則會建立三封電子郵件。

2. 此 VBA 程式碼僅在您使用 Outlook 作為電子郵件程式時有效。

使用 Kutools for Excel 將電子郵件寄送至儲存格所指定的郵箱地址

本節將為您推薦寄送電子郵件功能，此功能隸屬於 Kutools for Excel。透過此功能，您能輕鬆將郵件寄送至 Excel 儲存格中指定的電子信箱地址！請依照下列步驟操作：

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 選取工作表中含有標題儲存格的郵件地址，然後點選 KUTOOLS PLUS > 寄送電子郵件。

按一下 Kutools 的「傳送電子郵件」功能

2. 在彈出的寄送電子郵件對話方塊中，請進行以下設定：

2.1) 在收件者欄位中選取郵箱地址清單的標題；

2.2) 在主旨方塊中輸入郵件標題；

2.3) 撰寫您的電子郵件內文；

2.4) 勾選 使用 Outlook 發送核取方塊；

2.5) 按一下傳送按鈕。請參閱下圖：

在對話方塊中指定選項

3. 接著會彈出一個 Kutools for Excel 對話方塊，顯示您已成功寄送的電子郵件數量。請點擊確定按鈕，並關閉寄送電子郵件對話方塊。請參閱下圖：

按一下傳送按鈕以傳送電子郵件

注意事項：

1. 您可以前往 Outlook 的已傳送郵件資料夾檢查已寄送的電子郵件。

2. 您也可以點選發件服務器設置以設定使用其他伺服器作為寄送模式。

想免費試用此工具 30 天嗎？立即下載，並依照上述步驟操作！

示範：使用 Kutools for Excel 將電子郵件寄送至儲存格所指定的郵箱地址

最佳 Office 生產力工具

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