这个需要用到【邮件合并】功能，把收件人的信息，例如姓名、邮箱地址等做成一个excel数据表，用word制作好邮件的内容。然后进行以下 *** 作步骤：
1.07版的word，点击【邮件】》【选择收件人】》【使用现有列表】》选择你的收件人数据表》【确定】；
2.把光标定位到需要插入姓名的位置》【插入合并域】》【姓名】，然后再把光标定位到下一个需要插入合并域的位置，重复插入 *** 作。
3.全部合并域都已经插入好了之后，点击【完成并合并】》【发送电子邮件】》选择收件人、主题》【全部】》【确定】。
办公效率平台 ｜ mysoeasy。提升office技能，提高办公效率。
里面有大量微软金牌讲师累积多年的OFFICE技术视频。还可以在遇到问题的时候直接跟专业顾问交流。以及有很多做PPT的素材图表、关系图等。
如何将大量文件打包，并发送邮件？
将全部文件保存到一个文件夹内，然后通过WINRAR压缩软件，在该文件夹上右键所标，点击“添加到压缩文件”，之后打开邮箱点击“添加附件”或者“超大附件”，添加收件人和标题发送即可。
如何用excel批量发邮件自动发邮件
outlook
在”开始“所有程序中找，然后根据提示 *** 作使用（但首先你已申请了邮箱）
若是找不到，你可以到网上查找下载资源
怎么用64位的EXCEL批量发送邮件？ 10分
VBA代码如下，自行修改相应参数
Sub send()On Error Resume NextDim NameSpace$, Email As Object, ns$, n%, t NameSpace = "schemas.microsoft/cdo/configuration/" '固定勿改 Set Email = CreateObject("CDO.Message") '固定勿改 Email.From = "[email protected]" '发件人QQ邮箱地址 Email.To = "[email protected],[email protected],[email protected],[email protected],[email protected]" '要发往的地址 Email.Subject = "邮件发送实验。" '标题 Email.Textbody = "VBA发送邮件实验中，收到请回复" '正文 'Emailbody = t 'Email.AddAttachment "e:\桌面\嘻嘻.txt" '添加附件 With Email.Configuration.Fields .Item(NameSpace &" *** tpusessl") = 1 '是否使用SSL协议 .Item(NameSpace &"sendusing") = 2 '发送端口 .Item(NameSpace &" *** tpserver") = " *** tp.qq" '发送邮件的SMTP服务器 .Item(NameSpace &" *** tpserverport") = "465" '发送端口号 .Item(NameSpace &" *** tpauthenticate") = 1 '勿改 .Item(NameSpace &"sendusername") = "15963970" '发件人邮箱用户名。例：15963970 .Item(NameSpace &"sendpassword") = "??????????????????????" '发件人QQ密码 .Update End With Email.send ''执行发送动作If Err.Number = 0 Then '处理错误 MsgBox "发送成功"Else MsgBox "发送失败"End IfEnd Sub
如何利用“邮件合并”功能进行邮件的批量发送？
Outlook随即启动Word，这时会发现多了一行工具栏。在Word文档中输入邮件内容，在“邮件合并”工具栏中单击“合并到电子邮件”按钮，再单击“确定”按钮。Outlook就会把需要发送的文档发送出去了。如果你经常需要给某人发送电子邮件的话，可以考虑在桌面上创建一个快捷方式。这样会节省你的输入时间。在桌面的空白区域按鼠标右键，选择“新建”下的“快捷方式”命令。在“创建快捷方式”对话框中，输入mailto:[email protected]，然后单击“下一步”按钮，为该快捷方式取一个适当的名称（如“给某某人写信”），然后单击“确定”按钮。
怎么用EXCEL批量发邮件，不同的附件。
附件可逐一添加，一次发送
如何用EXCEL 批量发送邮件批量发送工资条
方法/步骤
按照下图整理工资明细表
1，列数可自行新增删除；
2，如果整理的数据列，无法发送邮件的请把表头内添加大写字母“X”；
3，工作表名称用作了邮件主题，发送前请修改工作表名称；
启用开发工具选项卡；插入命令控件；修改控件名称及显示名；
进入VBA编程界面；复制以下代码到编辑窗口。
Private Sub 全自动发送邮件_Click()
'要能正确发送并需要对Microseft Outlook进行有效配置
On Error Resume Next
Dim rowCount, endRowNo, endColumnNo, sFile$, sFile1$, A&, B&
Dim objOutlook As Object
Dim objMail As MailItem
'取得当前工作表数据区行数列数
endRowNo = ActiveSheet.UsedRange.Rows.Count
endColumnNo = ActiveSheet.UsedRange.Columns.Count
'取得当前工作表的名称，用来作为邮件主题进行发送
sFile1 = ActiveSheet.Name
'创建objOutlook为Outlook应用程序对象
Set objOutlook = CreateObject("Outlook.Application")
'开始循环发送电子邮件
For rowCount = 2 To endRowNo
'创建objMail为一个邮件对象
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
'设置收件人地址，数据源所在列数
.To = Cells(rowCount, 5)
'设置抄送人地址（从通讯录表的'E-mail地址'字段中获得）
'.CC = Cells(rowCount, 0)
'设置邮件主题,取值工作表名，
.Subject = sFile1
'设置邮件内容(从通讯录表的“内容”字段中获得)
'align 单元格文本显示方式 left(向左)、center(居中)、right(向右)，默认是center, width-宽 height-高 border 单元格线粗细,bordercolor返回或设置对象的边框颜色
'colSpan是一种编程语言，其属性可设置或返回表元横跨的列数
sFile = "您好！ 以下是您" + sFile1 + "，请查收！"
sFile = sFile + "
sFile = sFile + "
B = 1
For A = 1 ......
如何批量一对一发送邮件
输入所有邮件地址后，选择分别发送，就一对一发送了，不是群发。
如何批量一对一发送邮件
输入所有邮件地址后，选择分别发送，就一对一发送了，不是群发。
如何用EXCEL 批量发送邮件批量发送工资条
如何用EXCEL 批量发送邮件批量发送工资条_百度经验 jingyan.baidu/...8
冀ICP备13008870 粤公网安备 44023202000125号站点地图
" 工资表 "
小猪在公司做出纳，干的活却包括了出纳、会计、结算专员等工作，周末都要被无奈在家加班，主要还没有加班费，简直是被公司严重压榨。每个月初都要给每个工长发预付款账单邮件，月中发结算款账单。重复性机械工作。
一个及格线上的程序员，最起码的觉悟就是将重复性的机械工作自动化，于是，在我花了一个多小时，帮她给一部分工长发了一次邮箱后，默默的回来写了这个脚本。
所以，设计要点就是一个字—— 懒 。
恩，就酱。
经过我观察，邮件内容分为两种，这里先说第一种，“结算款”:
（1） 邮件内容（content）不变，为固定的txt文本
（2） 附件（attch）为每个工长的结算账单（excel文件.xlsx），此文件命名为总账单中自动分割出来的名字（暂时不懂怎么分割出来的=.=），格式为：
（3） 邮件主题（Subject）为附件名（不带后缀名）
（4） 邮件接收对象（工长）的名单及其邮箱地址基本不变，偶尔变动
（5）
（1） 将工长及其邮箱地址存为CSV文件的两列，python中将其读取为字典形式，存储以供后续查询邮箱地址。
（2） 遍历文件夹中的附件（.xlsx类型文件），对其进行两种 *** 作，一方面将其名字（不带路径和后缀）提取出来，作为邮件主题（Subject），并对Subject进一步划分，得到其中的人名（工长）；另一方面，将其传入MIMEbase模块中转为邮件附件对象。
（3） 由上述得到的人名（name），在字典形式的通讯录中，查找相应的地址（value），即为收件人名称和地址
（4） 利用python中的email模块和smtp模块，登录自己的邮箱账号，再对每个附件，得到的收件人名和地址，添加附件，发送邮件。done
在设计过程中有几点需要注意
（1） 有时一个邮件地址对应两个人名，此时应该在CSV文件中分为两行存储，而不是将两个人名存为同一个键；
（2）有账单.xlsx文件，通讯录里却没存储此人记录，程序应该打印提示没有通讯记录的人名，且不能直接退出，要保证员工看到此提示，此第一版程序还有解决此问题；
（3）此程序发送的邮件内容为纯文本，若要求邮件内容有不同格式（如部分加粗，部分红色），还有小部分需要每次更改的地方（如邮件内容包含当前月份），如何解决？（这就是第二种邮件内容，“预算款”）；
（4）重名的，暂时还没碰到，程序中也没给出解决方案。
第一版到此，20180830，待更新
第二版更新，20180904
第三版更新，20180909
转战CSDN博客，更多博客见传送门《 xiaozhou的博客主页 》
按照下图整理工资明细表
1、列数可自行新增删除；
2、如果整理的数据列，无法发送邮件的请把表头内添加大写字母“X”；
3、工作表名称用作了邮件主题，发送前请修改工作表名称；
启用开发工具选项卡；插入命令控件；修改控件名称及显示名；
进入VBA编程界面；复制以下代码到编辑窗口。
PrivateSub全自动发送邮件_Click()
'要能正确发送并需要对MicroseftOutlook进行有效配置
OnErrorResumeNext
DimrowCount,endRowNo,endColumnNo,sFile$,sFile1$,A&,B&
DimobjOutlookAsObject
DimobjMailAsMailItem
'取得当前工作表数据区行数列数
endRowNo=ActiveSheet.UsedRange.Rows.Count
endColumnNo=ActiveSheet.UsedRange.Columns.Count
'取得当前工作表的名称，用来作为邮件主题进行发送
sFile1=ActiveSheet.Name
'创建objOutlook为Outlook应用程序对象
SetobjOutlook=CreateObject("Outlook.Application")
'开始循环发送电子邮件
ForrowCount=2ToendRowNo
'创建objMail为一个邮件对象
SetobjMail=objOutlook.CreateItem(olMailItem)
WithobjMail
'设置收件人地址，数据源所在列数
.To=Cells(rowCount,5)
'设置抄送人地址（从通讯录表的'E-mail地址'字段中获得）
'.CC=Cells(rowCount,0)
'设置邮件主题,取值工作表名，
.Subject=sFile1
'设置邮件内容(从通讯录表的“内容”字段中获得)
'align 单元格文本显示方式left(向左)、center(居中)、right(向右)，默认是center,width-宽height-高 border单元格线粗细,bordercolor返回或设置对象的边框颜色
'colSpan是一种编程语言，其属性可设置或返回表元横跨的列数
sFile="<tr>您好！<br>以下是您"+sFile1+"，请查收！</tr>"
sFile=sFile+"<tablealign='left'width='500'height='25'border=1 bordercolor='#000000'><tbody>"
sFile=sFile+"<tr> <tdcolspan='4'align='center'>工资表</td></tr>"
B=1
ForA=1ToendColumnNo
'数据表头中添加“X”后将不发送此字段
IfApplication.WorksheetFunction.CountIf(Cells(1,A),"*X*")=0Then
IfB=1Then
sFile=sFile+"<tr> <tdwidth='20%'height='25'>"+Cells(1,A).Text+" </td><td width='30%'height='25'>"+Cells(rowCount,A).Text+"</td>"
B=0
Else
sFile=sFile+"<tdwidth='20%'height='25'>"+Cells(1,A).Text+" </td><td width='30%'height='25'>"+Cells(rowCount,A).Text+"</td></tr>"
B=1
EndIf
EndIf
Next
.HTMLBody=sFile
'设置附件(从通讯录表的“附件”字段中获得)
.Attachments.AddCells(rowCount,24).Value
'自动发送邮件
.Send
EndWith
'销毁objMail对象
SetobjMail=Nothing
Next
'销毁objOutlook对象
SetobjOutlook=Nothing
'所有电子邮件发送完成时提示
MsgBoxrowCount-2&"个员工的工资单发送成功！"
EndSub
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）