Note: The other languages of the website are Google-translated. Back to English

如何通过Outlook从Excel将个性化的大量电子邮件发送到列表?

例如,我在工作表中有以下数据范围,其中包含“名称”,“电子邮件地址”,“注册代码”列,现在,我想向A列中单独的电子邮件地址发送带有个性化问候语和自己的注册代码的消息。要解决此问题,以下方法可以为您提供帮助。

doc发送个性化电子邮件1

使用邮件合并功能从Excel将个性化的大量电子邮件发送到列表

使用VBA代码从Excel发送个性化的大量电子邮件到列表

使用Kutools for Excel将个性化的大量电子邮件发送到带有不同附件的列表


箭头蓝色右气泡 使用邮件合并功能从Excel将个性化的大量电子邮件发送到列表

用话语 邮件合并 功能,您可以快速轻松地完成此工作,请按以下步骤操作:

1. 启动一个新的空白Word文档,然后单击 邮件 > 选择收件人 > 使用现有清单,请参见屏幕截图:

doc发送个性化电子邮件2

2。 在 选择数据源 窗口中,选择包含要使用的数据范围的工作簿,然后单击 可选 按钮,请参见屏幕截图:

doc发送个性化电子邮件3

3。 即将来临 选择表 对话框,请选择具有所需数据范围的工作表,然后单击 OK 按钮,请参见屏幕截图:

doc发送个性化电子邮件4

4。 电子邮件主文档和您的地址列表已经连接在一起,现在,您可以编辑文本消息并添加占位符,以指示唯一信息将出现在每条消息中的位置。

(1.)要插入其单独的问候语名称,请单击 邮件 > 插入合并字段 > 姓名:,个性化名称已插入到消息中,且字段名称由包围 «».

doc发送个性化电子邮件5

(2.)继续输入您的信息并插入 注册码 进入您需要的地方,请参见屏幕截图:

doc发送个性化电子邮件6

5。 撰写邮件后,可以单击 预览结果 在下面 邮件 选项卡以预览电子邮件并进行更改,然后再实际完成合并。

6。 确定没有问题后,您可以将电子邮件发送给单独的收件人,请单击 邮件 > 完成并合并 > 发送邮件信息,请参见屏幕截图:

doc发送个性化电子邮件7

7。 然后在弹出 合并到电子邮件 对话框中,进行以下操作:

(1.)从 下拉列表,请选择 电子邮件地址 柱;

(2.)您可以将主题键入 主题 行文本框;

(3.)从 发送记录 部分,选择 全部商品.

doc发送个性化电子邮件8

8。 然后点击 OK,电子邮件将立即发送给具有单独的注册码的单独收件人,发送电子邮件之后,您可以转到Outlook以确保电子邮件已成功发送。


向具有不同附件的多个收件人发送个性化电子邮件:

Kutools for Excel's 发电子邮件 功能,您可以根据需要通过Outlook从Excel快速将个性化电子邮件发送给具有不同附件的多个收件人。 同时,您也可以抄送或密送给特定人员的邮件。       立即下载并免费试用Excel的Kutools!

doc发送个性化电子邮件18 1


箭头蓝色右气泡 使用VBA代码从Excel发送个性化的大量电子邮件到列表

除邮件合并功能外,以下VBA代码也可以帮您一个忙,请按照以下步骤操作:

1。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic应用程序 窗口。

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 键来运行此代码,然后会弹出一个提示框,提醒您选择要使用的数据范围,请参见屏幕截图:

doc发送个性化电子邮件9

4。 然后点击 OK 按钮,电子邮件将被一个一个地发送到单独的地址,并带有各自的注册码。发送电子邮件后,您可以转到Outlook以确保电子邮件已成功发送。

备注:在以上代码中,您可以根据需要更改主题或正文消息。


箭头蓝色右气泡 使用Kutools for Excel将个性化的大量电子邮件发送到带有不同附件的列表

如果你有 Kutools for Excel,其 发电子邮件 功能,您可以根据需要快速将个性化电子邮件发送给具有不同附件的多个收件人。

Kutools for Excel : 带有300多个便捷的Excel加载项,可以在30天内免费试用. 

安装后 Kutools for Excel,请这样做:

1。 点击 Kutools 加 > 发电子邮件,请参见屏幕截图:

2。 在 发送Emials 对话框中,请选择要使用的数据范围,然后根据需要指定收件人地址,附件和主题,请参见屏幕截图:

doc发送个性化电子邮件9

3。 在编辑框中,插入各个问候语名称,请选择 姓名: 从下拉列表中,然后单击 插入占位符 将名称插入消息中,请参见屏幕截图:

doc发送个性化电子邮件9

4。 然后根据需要在框中输入消息正文,请参见屏幕截图:

doc发送个性化电子邮件9

5。 完成电子邮件正文后,请根据需要选择发送模式,可以使用Outlook或指定的服务器进行发送,请参见screesnhot:

doc发送个性化电子邮件9

备注:如果要使用其他服务器,请单击 发送服务器设置 要将发送模式设置为您自己的模式,请参见screesnhot:

doc发送个性化电子邮件9

6。 最后点击 发送 按钮发送电子邮件,完成后将弹出提示框,提醒您发送状态。 参见screesnhot:

doc发送个性化电子邮件9

单击立即下载并免费试用Kutools for Excel!


演示:通过Outlook从Excel将个性化的大量电子邮件发送到列表

Kutools for Excel:具有300多个方便的Excel加载项,可以在30天内免费试用,没有任何限制。 立即下载并免费试用!

相关文章:

如何通过Outlook从Excel向列表中的多个收件人发送电子邮件?


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (47)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
这段代码运行得很好,非常感谢。 但我只是有一个小问题,我正在尝试更改代码以预先确定我想要接收电子邮件并发送它的单元格,因为我创建我的 excel 文件的方式。 我想为确定的单元格数组切换选择框。 示例:修复我的所有数据将在 A2:C6 之间,因此当我运行宏时,我不需要再次选择它。 非常感谢您在上面解释的一切
该评论由网站上的主持人最小化
您可以修改代码以在电子邮件中附加多个文件吗? 这将是一个很大的帮助。 提前致谢。
该评论由网站上的主持人最小化
是否可以添加代码以便它也可以提取我的正常电子邮件签名? 另外,选择我的范围到电子邮件时,我会过滤我的Excel电子表格,但是当我运行宏时,它仍然会拉入隐藏的行。
该评论由网站上的主持人最小化
我也想知道这个!
该评论由网站上的主持人最小化
如何在上面的代码中添加cc
该评论由网站上的主持人最小化
好方法

我只需要问你每次根据电子邮件更改主题的可能性吗?
该评论由网站上的主持人最小化
你好,阿齐兹,
当您应用 Kutools for Excel 时,它可以帮助您根据单元格值插入主题,您只需在对话框中选择主题列标题,如下图所示:

请尝试一下,希望对您有所帮助!
查看附件 (1 / 5)
该评论由网站上的主持人最小化
嗨,天阳,

我一直在尝试并尝试让我的电子邮件签名出现,但似乎无法正确处理! 你有一些我可以添加的代码来实现这一点吗?
该评论由网站上的主持人最小化
疯狂发帖,这是假的,不要相信这个内容
该评论由网站上的主持人最小化
你好,朋友,
这太棒了,需要帮助我每次都需要将不同的 pdf 文件附加到不同的电子邮件中。
谁能帮助我吗?
该评论由网站上的主持人最小化
嗨,天阳,
我需要为每封邮件附加不同的 pdf 文件。 你能帮忙吗?
该评论由网站上的主持人最小化
你好,阿文德,
Kutools 可以帮助您在发送电子邮件时添加多个不同的附件。
首先,您应该将附件的路径插入单元格,然后应用 Kutools,请查看以下屏幕截图:
希望对你有帮助,谢谢!
查看附件 (1 / 5)
该评论由网站上的主持人最小化
嗨,天阳,
我使用您的以下代码发送邮件并且工作正常,您有什么可以帮助我修改代码以发送 pdf 附件。
我需要发送超过 100 封邮件,所以每次都很难附加文件。 Kutools 是否按照给定路径工作并自动发送邮件?
该评论由网站上的主持人最小化
哎,
你能帮我解决附件添加功能吗? 使用您上面的 VBA 代码,我需要发送附件。
我不能使用 Kutools :(
该评论由网站上的主持人最小化
如何抄送这个人?
该评论由网站上的主持人最小化
如果我有很多客户的数据,而有些客户有超过 1 个数据怎么办……我不想向客户发送单独的邮件,但可能以表格格式在电子邮件中发送。 我怎样才能只向客户发送一封电子邮件。
该评论由网站上的主持人最小化
嗨史蒂文,你有没有办法完成这件事。 我们可以通过一个简单的在线门户网站帮助您
该评论由网站上的主持人最小化
你好,你解决了吗?
该评论由网站上的主持人最小化
我想知道怎么做。 你能告诉我吗?
该评论由网站上的主持人最小化
谢谢!!

但我试图做测试,并没有发送到 emai。 也没有错误消息..我可以知道发生了什么吗?
该评论由网站上的主持人最小化
我在 excel 中有一个电子邮件地址列表,我需要将电子邮件发送到主题和正文在电子邮件地址之外的单元格中,我有下面的脚本,但我需要每 100 小时发送 1 封电子邮件,我该如何请您的支持

子发送Em()
将 i 调暗为整数、Mail_Object、Email_Subject、o 为变体、lr 为长
lr = Cells(Rows.Count, "A").End(xlUp).Row
设置 Mail_Object = CreateObject("Outlook.Application")
对于 i = 2 到 lr
使用 Mail_Object.CreateItem(o)
.Subject = Range("B" & i).Value
.To = Range("A" & i).Value

.Body = Range("C" & i).Value
.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("I" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
。发送

'.display '禁用显示并启用发送自动发送
结束
接下来,我
MsgBox "邮件发送成功", 64
Application.DisplayAlerts = False
设置 Mail_Object = 无
END SUB
该评论由网站上的主持人最小化
你好,希巴,
我们的 Kutools for Excel 的发送电子邮件可以帮助您解决问题。 请设置条件如下图所示:
使用此功能,您还可以应用抄送、密件抄送功能,还可以插入多个附件。
查看附件 (1 / 5)
该评论由网站上的主持人最小化
你好管理员


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di 文件 pdf nya tdk terkirim .. terimakasih
该评论由网站上的主持人最小化
由于某种原因,此代码将其发送到列表中的所有其他电子邮件。 有没有理由不发送每一个? 我直接复制了上面的代码并没有改变任何东西
该评论由网站上的主持人最小化
VBA 代码运行良好,谢谢,但如何添加抄送? 我试过了,失败了……
该评论由网站上的主持人最小化
VBA 代码运行良好,谢谢,但如何添加抄送? 我试过:


将 xCc 调暗为字符串
然后
xCc = xRg.Cells(i, 9)(地址在第9列)


并且失败了……
该评论由网站上的主持人最小化
你好,让,

为了解决您的问题,请应用以下代码:(注意:您应该在 C 列中添加 CC 列)

#如果 VBA7 和 Win64 则
私有声明 PtrSafe 函数 ShellExecute Lib "shell32.dll" 别名 "ShellExecuteA" (_
ByVal hwnd 作为 LongPtr,ByVal lpOperation 作为字符串,_
ByVal lpFile 作为字符串,ByVal lpParameters 作为字符串,ByVal lpDirectory 作为字符串,_
ByVal nShowCmd As Long) As LongPtr
#别的
私有声明函数 ShellExecute Lib "shell32.dll" 别名 "ShellExecuteA" (_
ByVal hwnd As Long,ByVal lpOperation As String,_
ByVal lpFile 作为字符串,ByVal lpParameters 作为字符串,ByVal lpDirectory 作为字符串,_
ByVal nShowCmd 只要)只要
#万一
子发送电子邮件()
将 xEmail 暗淡为字符串
将 xSubj 调暗为字符串
将 xMsg 调暗为字符串
将 xURL 调暗为字符串
昏暗的整数
Dim k As Double
将 xCell 调暗为范围
将 xRg 调暗为范围
将 xTxt 调暗为字符串
将 xCC 调暗为字符串
出错时继续下一步
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("请选择数据范围:", "Kutools for Excel", xTxt, , , , , 8)
如果 xRg 什么都不是,则退出 Sub
如果 xRg.Columns.Count <> 4 那么
MsgBox "区域格式错误,请检查", , "Kutools for Excel"
退出小组
结束如果
对于 i = 1 到 xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Cells(i, 3)
xSubj = "您的注册码"
xMsg = ""
xMsg = xMsg & "亲爱的 " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & "这是您的注册码"
xMsg = xMsg & xRg.Cells(i, 4).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & "请尝试一下,很高兴得到您的反馈!" & vbCrLf
xMsg = xMsg & “天阳”
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
xURL = "mailto:" & xEmail & "?cc=" & xCC & "&subject=" & xSubj & "&body=" & xMsg
ShellExecute 0&,vbNullString,xURL,vbNullString,vbNullString,vbNormalFocus
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
下一页
END SUB
查看附件 (1 / 5)
该评论由网站上的主持人最小化
我在“使用 VBA 代码将个性化的群发电子邮件从 Excel 发送到列表”下使用了上述 VBA 代码。 我想知道我是否可以向某些需要根据 excel 通知的人发送电子邮件,告诉我向即将到期合同的人发送提醒? 我无法让 excel 发送电子邮件,我知道这是因为代码本身。 有人可以帮我解决这个问题吗?
该评论由网站上的主持人最小化
我想发送带有唯一主题行的电子邮件,我该如何使用这个 VBA 来做到这一点?
该评论由网站上的主持人最小化
大家好!

我在一张纸上有电子邮件列表,在另一张纸上有电子邮件草稿。
我需要一个代码来自动将工作表 2 中的电子邮件草稿发送给工作表 5 中提供的列表中的每 1 个成员。
发送前 5 封电子邮件后,代码应在新的专用列中将它们标记为“已发送”,然后等待 60 秒,然后再发送下一组 5 封电子邮件。
代码应该一直运行到整个列表的末尾。

该代码可以使用 Outlook 从 Outlook 中的默认配置文件发送邮件。

请大家帮忙。

如果您需要更多说明,请告诉我
这里还没有评论
加载更多
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护