批量发邮件,outlook批量发邮件
如何群发邮件
群发邮件有很多方法，根据使用工具的不同，操作方式也会不一样。
群发软件五花八门，这里先不提，这里就拿我自己用的TOM VIP邮箱举例。
邮箱群发的方法有：抄送群发、群发密送，或直接添加多个收件人等。
抄送群发
抄送群发
填写完收件人后，将你想要群发的人的账号填写到抄送人处，就能完成抄送群发。
群发密送
群发密送
群发密送类似于抄送群发，在密送人处填写上除收件人外你还想要发送的邮箱账户，这样收件人与密送人都能收到你发的邮件。
添加多个收件人
多收件人群发
在收件人处，填写收件人账号，每输入完成一个账号后敲击“Enter”键，这样就能输入多个收件人，实现多收件人群发。
补充：
群发单显类似于多收件人群发，同样是在收件人处输入多个收件人账号。
不同的是群发单显的收件人看到的都是该邮件单独发给了自己，不会有群发的感觉。
如何邮件群发 邮件群发的方法
第一步：登录你的邮箱
第二步：点击联系人
第三步：选择你想群发的联系人，点击写信
第四步：点击发送，发送成功，如果你想要群发邮件，又不想让收件人知道此封邮件是群发的，那你可以使用右上角的群发单显功能，一次可群发给500个人，每个人收发邮件后，看到你只给他一人发了邮件，很神奇很好用！
QQ邮件怎么批量发送？
按照下图整理工资明细表
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+"?/tdtd?width='30%'height='25'"+Cells(rowCount,A).Text+"/td"
B=0
Else
sFile=sFile+"tdwidth='20%'height='25'"+Cells(1,A).Text+"?/tdtd?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
如何可以批量发送很多邮件？
你可以复制很多人的邮箱地址。然后再批量的输入到收件人的一栏中。这样就可以发送给他们内容了。
微信如何把几千条聊天记录批量发送邮件
工具/材料:微信APP、华为Mate20Pro手机。
微信几千条聊天记录批量发送邮件的方法：
1、打开手机里的微信APP。
2、点开想要批量发送的聊天记录所在的好友聊天页面，找到聊天记录，长按在上面不动，在弹出来的框里选择“多选”。
3、聊天内容右边就会出现一个小方框，把需要转发的内容右边方框里打上勾。
4、点击箭头指的最左边的这个小符号。
5、在弹出的页面中，选择合并转发。
6、随便选择一个转发的人，点击发送。
7、然后打开转发的人的聊天页面，长按合并转发过来的聊天记录，在跳出来的框里选择“多选”。
8、接着点击邮件指的最右边的这个小符号（如图所示）。
9、输入收件人，然后点击“发送”，即可把几千条聊天记录批量发送邮件。