当你需要向一大群人群发电子邮件时，你需要一个能够快速处理重复性任务的自动化流程。 创建一个 ǞǞǞ 文件中的电子邮件列表是最常见的发送群发邮件的方式。 因此，在本教程中，我们将向你展示如何从一个 ǞǞǞ 列表自动发送给大量的人。

下载实践工作手册

下载这本练习手册，在阅读本文时进行练习。

从Excel列表中发送电子邮件的2种便捷方法

我们在下面的图片中包含了一个数据集，其中有一些人的名字，以及他们的电子邮件和注册号码。 来自于 ǞǞǞ 为了实现这一目标，我们将使用 Microsoft Word的邮件合并功能 功能 ，然后是一个 VBA 代码来发送电子邮件给现有列表中的首选个人。

1.应用邮件合并功能，从Excel列表中发送多封邮件

⇒ 第1步：打开一个新的Word文件

• 打开一个空白的 词语 文件。
• 点击进入 邮件发送 标签。
• 从 选择收件人 选项，选择 使用现有名单 选择。

⇒ 第2步：将Excel列表与Word文件连接起来

• 选择 ǞǞǞ 文件中创建的列表，并点击 开放式 来打开该文件。

• 选择你写清单的纸张编号。
• 然后，点击 认可 .

⇒ 第3步：插入字段

• 从 邮件发送 选项，点击 插入合并字段 选项来输入你要插入的字段。
• 首先，插入 命名 栏目，并在一般邮件的首选位置点击它。

• 如下图所示，在添加了 命名 字段，它将显示为每个人的名字的变量。

• 同样地，将 摄 在文本信息中任何你想要的地方的字段。

• 因此，它将显示为如下所示的图像。

⇒ 第4步：检查预览结果

• 点击进入 预览结果 在发送电子邮件之前，可以看到最终的预览。
• 下面的屏幕截图显示了电子邮件样本的样子。

⇒ 第5步：合并电子邮件

• 要合并电子邮件，请点击 完成& 合并 选择。
• 要打开 合并到电子邮件 框，选择 发送电子邮件信息 选择。

• 在收件人框中，选择 电子邮件 选择。
• 输入你喜欢的主题词，在 主题词 箱子。
• 邮件格式将是 HTML 默认情况下，所以你不需要改变它。
• 在发送记录选项中，点击 全部 .
• 最后，点击 认可 来同时向多个收件人发送邮件。

• 因此，所有的电子邮件都将通过你相关的 展望 检查你的 展望 发送选项，以确认电子邮件已被发送。

• 当你打开一封已发送的电子邮件时，你会注意到每个字段都填有一个特定人的信息。

阅读更多。 如何在Excel中满足条件时自动发送电子邮件

类似读物

• 如何通过电子邮件发送可编辑的Excel电子表格（3种快速方法）
• [解决]：共享工作簿在Excel中不显示（含简单步骤）
• 使用VBA从Excel工作表中自动发送提醒邮件
• 如何查看共享的Excel文件中的人员情况（快速步骤）
• 如何在Excel中启用共享工作簿

2.运行VBA代码，从选择范围中发送电子邮件

带着祝福 VBA ，你可以创建一个程序来发送电子邮件从一个 ǞǞǞ 按照下面列出的步骤来完成这项任务。

⇒ 第1步：创建一个模块

• 要打开 VBA宏程序 ，按 符号 + F11 .
• 点击进入 插入 标签。
• 选择 模块 选项来创建 模块 .

⇒ 第2步：粘贴VBA代码

• 在新 模块 ，粘贴以下内容 VBA代码 .

 #If VBA7 And Win64 Then 'Ptr用于将32位操作改为64位操作 Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal wnd As LongPtr, ByVal lpDirect As String, _ ByVal Parameters As String, ByVal File As String, ByVal Operation As String, _ ByVal nCmd As Long) As LongPtr #Else #End If Sub SendExcelListEMail() ' Declare variables DimxMailAdd As String Dim xRegCode As String Dim xBody As String Dim xURLink As String Dim xRngCell As Range Dim xIntRg As Range Dim xSelectTxt As String Dim k As Integer Dim p As Double On Error Resume Next '选择范围选择adddress xSelectTxt = ActiveWindow.RangeSelection.Address '为范围选择创建一个输入框 Set xIntRg = Application.InputBox("请输入Excel数据范围：" 。"ExcelWIKI", xSelectTxt, , , , 8) '应用If条件为操作指定列号 If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then '在msg框中显示不符合条件的结果 MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If '应用For循环在每行单独运行操作 For k = 1 To xIntRg.Rows.CountxMailAdd = xIntRg.Cells(k, 2) ' 给予电子邮件的主题 xRegCode = "ExcelWIKI注册号" ' 输入电子邮件的正文 xBody = "" ' 用变量xIntRg插入名称 xBody = xBody & "问候" & xIntRg.Cells(k, 1) & ", " & vbCrLf & vbCrLf xBody = xBody & " 这里是你的ExcelWIKI注册号。" ' 插入变量xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "我们非常高兴您访问我们的网站，继续支持我们。" & vbCrLf xBody = xBody & "ExcelWIKI团队" ' 用（十六进制）定义空格 xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " " , "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' 指定用(hex)替换回车符 xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' 生成URL链接 xURLink = "mailto:" & xMailAdd & "? title=" & xRegCode & " & body=" & xBody ' 使用链接开始发送电子邮件 ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' 发送按键的时间间隔为3秒 Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ 第3步：运行程序

• 新闻 F5 来运行该程序。
• 选择 输入框中的范围。
• 点击 认可 来发送电子邮件。

• 因此，将出现发送电子邮件的预览，如下图所示。

• 最后，你可以检查已发送的电子邮件进行确认。

阅读更多。 如何在Excel中满足条件时发送电子邮件（3种简单方法）

总结

我希望这篇文章能给你一个教程，让你了解如何从一个网站上大量发送电子邮件。 ǞǞǞ 所有这些程序都应该学会并应用于你的数据集。 看一下练习工作簿，把这些技能用于测试。 由于你的宝贵支持，我们有动力继续制作这样的教程。

如果您有任何问题，请与我们联系。 同时，欢迎在下面的栏目中留下评论。

我们 优秀 团队，总是对你的询问作出回应。

与我们呆在一起，继续学习。