如何透過 Outlook，從 Excel 發送個人化的大量郵件給聯絡人清單？

作者Xiaoyang修改日期2024-08-22

例如，您的工作表中包含姓名、電子信箱與註冊碼等欄位的資料區域，現在您希望針對 A 欄中的每個電子信箱，寄送一封包含個人化問候語及對應註冊碼的郵件。以下方法或許能協助您達成此目標。

工作表中郵件清單的螢幕截圖

使用郵件合併功能從 Excel 將個人化大量郵件傳送至清單

使用 VBA 程式碼從 Excel 將個人化大量郵件傳送至清單

使用 Kutools for Excel 將附帶不同附件的個人化大量郵件傳送至清單

使用郵件合併功能從 Excel 將個人化大量郵件傳送至清單

透過 Word 的郵件合併功能，您可以快速輕鬆地完成此作業，請依照下列步驟操作：

1. 啟動新的空白 Word 文件，然後點選郵件＞ 選擇收件人＞ 使用現有清單，請參閱截圖：

選取收件人並使用現有清單的螢幕截圖

2. 在選擇數據來源視窗中，選取包含您所需數據區域的活頁簿，然後點擊開啟按鈕，請參閱截圖：

選取活頁簿的螢幕截圖

3. 在接下來出現的選取資料表對話方塊中，請選擇包含您所需數據區域的工作表，然後按一下確定按鈕。請參閱截圖：

選取包含郵件清單之對應工作表的螢幕截圖

4. 此時，電子郵件訊息主文檔已與您的地址列表成功連結，您現在即可編輯文字內容，並加入預留位置，標示每封郵件中專屬資訊的顯示位置！

（1.）若要插入個別問候姓名，請點選郵件 > 插入合併欄位 > 姓名，個人化姓名便會自動插入訊息中，且欄位名稱會以« »標示。

插入合併後的「姓名」欄位的螢幕截圖

（2.）繼續輸入您的訊息，並將註冊碼插入至所需位置，詳情請參閱截圖：

插入註冊碼的螢幕截圖

5. 撰寫完訊息後，請點選預覽結果下方的郵件索引標籤，即可預覽電子郵件內容，並在實際完成合併前進行調整！

6. 確認無誤後，請按一下郵件> 完成並合併> 傳送電子郵件訊息，即可將電子郵件傳送給各收件者，請參閱截圖：

選取「傳送電子郵件訊息」的螢幕截圖

7. 在跳出的合併至電子郵件對話方塊中，執行下列操作：

（1.）從收件者下拉清單中，選取 Email_Address 欄位；

（2.）您可在主旨文字方塊中輸入郵件主旨；

（3.）在傳送記錄區段中，選取全部。

設定「合併至電子郵件」對話方塊的螢幕截圖

8. 然後按一下確定，電子郵件將立即傳送給各收件者，並附上其專屬註冊碼。傳送完畢後，您可前往 Outlook 確認郵件是否已成功寄出。

將附帶不同附件的個人化郵件傳送給多位收件者：

透過 Kutools for Excel 的傳送電子郵件功能，您能根據需求，從 Excel 透過 Outlook 快速發送附帶不同附件的個人化郵件給多位收件者，還可同時將密件副本（Bcc）或副本（CC）傳送給指定人員！立即下載並免費試用 Kutools for Excel！

使用 Kutools for Excel 輕鬆向多位收件者傳送個人化電子郵件的螢幕截圖

使用 VBA 程式碼從 Excel 將個人化大量郵件傳送至清單

除了郵件合併功能外，下列 VBA 程式碼也能協助您，請依此操作：

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：從 Excel 將個人化大量郵件傳送至清單：

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3. 接著按下 F5 鍵執行此程式碼，系統將彈出提示方塊，提醒您選取要使用的資料區域，請參閱截圖：

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

4. 然後按一下確定按鈕，電子郵件將逐一傳送至各個地址，並附上各自的註冊碼。傳送完畢後，您可前往 Outlook 確認郵件是否已成功寄出。

注意：在上述程式碼中，您可依需求調整主旨或內文訊息。

使用 Kutools for Excel 將附帶不同附件的個人化大量郵件傳送至清單

如果您擁有 Kutools for Excel，即可透過其傳送電子郵件功能，根據需求快速將附帶不同附件的個人化郵件傳送給多位收件者！

安裝 Kutools for Excel 後，請依此操作：

1. 點擊 KUTOOLS PLUS> 傳送電子郵件，請參閱截圖：

啟用「傳送電子郵件」功能的螢幕截圖

2. 在傳送電子郵件對話方塊中，請選取要使用的資料區域，並依需求指定收件者地址、附件與主旨，請參閱截圖：

設定郵件欄位的螢幕截圖

3. 在編輯框中插入個別問候姓名時，請從下拉清單中選擇姓名，再點擊插入佔位符，即可將姓名輕鬆加入訊息中！詳情請參閱截圖：

插入預留位置的螢幕截圖

4. 接著，請根據需求在方塊中輸入您的訊息內文，詳情請參閱截圖：

完成電子郵件內文的螢幕截圖

5. 完成電子郵件內文後，請依需求選擇傳送模式：可透過 Outlook 或指定的伺服器傳送，詳情請參閱截圖：

選擇其中一種傳送模式的螢幕截圖

注意：若您想使用其他伺服器，請按一下發件服務器設置以將傳送模式設定為您自己的伺服器，請參閱截圖：

若要透過該電子郵件伺服器傳送郵件，請設定寄件伺服器的螢幕截圖

6. 最後，點擊傳送按鈕即可寄出電子郵件，完成後系統將彈出提示方塊告知傳送狀態。請參閱截圖：

顯示成功傳送電子郵件數量的螢幕截圖

立即點擊下載，免費試用 Kutools for Excel！

示範：從 Excel 透過 Outlook 將個人化大量郵件傳送至清單

Kutools for Excel：提供超過 300 項實用 Excel 增益集，可免費試用 30 天且無任何限制。立即下載並免費試用！

如何透過 Outlook，從 Excel 將郵件一次傳送給清單中的多位收件者？

最佳 Office 生產力工具

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