如何通过 Outlook 从 Excel 批量向列表中的收件人发送个性化邮件？
例如，您的工作表中有一个包含姓名、邮箱地址和注册码的数据区域，现在希望向 A 列中的每个邮箱地址发送一封个性化邮件，其中包含专属的问候语和对应的注册码。以下方法或许能为您提供有效帮助。
使用 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 快速向多位收件人发送附带不同附件的个性化邮件，并灵活添加抄送（CC）或密送（Bcc）对象。立即下载并免费试用 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. 最后，单击发送按钮即可发送邮件，完成后将弹出提示框告知发送状态，参见截图：
演示：通过 Outlook 从 Excel 向列表批量发送个性化邮件
相关文章：
如何通过 Outlook 从 Excel 向列表中的多位收件人发送邮件？
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱