vba群发qq邮件
很多常用excel表格的小伙伴相信对vba肯定都不陌生,其实vba也可以用来群发qq邮件,下面一米软件就来教教大家怎么做。
VBS脚本 实现邮件一键群发 '邮件群发VBS
将需要发送的邮件地址保存到本脚本所在目录的Emaillist.txt文件内,每行一个地址
本程序不区分邮件地址的有效性,请自行确认
On Error Resume Next
Dim fso,file,filename,ToEmail,counter
filename="Emaillist.txt"
Const ForReading=1
Set fso=CreateObject("Scripting.FileSystemObject")
if fso.fileExists("Emaillist.txt") Then
else
MsgBox("没有需要发送的邮件地址;请确认Emaillist.txt是否存在")
End if
Set file=fso.opentextfile(filename,ForReading)
counter=0
do until file.AtEndOfLine=-1
counter=counter+1
toemail=file.ReadLine
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
'发信设置
Email.From = "webmaster" '用来发送邮件的地址
Email.To = ToEmail
Email.Subject = "发送测试" '邮件主题
Email.Htmlbody = "发送测试 body" '邮件内容
Email.AddAttachment "c: est.rar" '附件未知
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "mail.test.com" 'SMTP服务器地址
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "username" '邮箱账号
.Item(NameSpace&"sendpassword") = "password" '邮箱密码
.update
End With
Email.Send
loop
Msgbox("发送完毕,共发送了"&counter&"封邮件.谢谢使用")
file.Close
以上就是vba群发qq邮件的全部过程, 想要了解更多qq邮件群发方法,可以访问一米软件官网。
上一条:QQ邮件怎么固定群发
下一条:请教如何群发qq邮件
-
邮件群发机
一般来说,邮件群发机适用于电子报刊发行、邮件列表订阅发送、企业客户联系等场景,今天就让一米软件来给...
2020-04-22 15:08:44 阅读:3469 #网络营销#
-
超级邮件群发机教程
超级邮件群发机作为一款老牌邮件群发机,其功能是十分的强大的,因此导致很多人不会用,下面就一起来看看...
2020-04-22 15:15:09 阅读:6551 #网络营销#
-
无敌邮件群发机
无敌邮件群发机由无敌工作室制作的一款最新的带有营销效果跟踪功能的邮件营销软件。 ...
2020-04-22 15:19:14 阅读:3974 #网络营销#
-
超级邮件群发机(新星邮件速递专家)设置技...
邮件群发机目前很多人都在用,但不少新手还不熟悉操作步骤和技巧,今天一米软件就来给大家分享一下超级邮...
2020-04-22 15:24:42 阅读:7308 #网络营销#
-
超级邮件群发机10.12 绿色破解版
超级邮件群发机 10.12 绿色破解版适用于各种需要发送邮件到大量地址的应用,如电子报刊发行、邮件...
2020-04-22 15:35:23 阅读:4690 #网络营销#
热门推荐
- 1怎么利用Facebook赚钱阅读:5170
- 2电子邮件营销的策略 阅读:4656
- 3邮箱群发不进垃圾箱阅读:5182
- 4群发邮箱平台哪个好 阅读:4864
- 5邮件推广中的具体营销步骤阅读:4920
- 6如何群发邮件但不被发现阅读:5855
- 7群发邮件如何不屏蔽阅读:3395
- 8邮件如何群发多个不同的人阅读:3504
- 9哪个邮箱群发效果好阅读:3326
- 10如何群发邮件阅读:3506
- 11电子邮件的营销方法 阅读:3329
- 12电子邮件杂志营销 阅读:3341
- 13电子邮件广告样式阅读:3431
- 14邮件批量发送软件 阅读:3542
- 15外贸邮件群发阅读:3246
- 16哪个邮箱群发效果好阅读:3251
- 17邮件推广的技巧阅读:3433
- 18邮件如何群发阅读:3273
- 19facebook 怎么增加好友阅读:3494
- 20如何可以群发邮件 阅读:3441
- 21邮件广告投放渠道有哪些阅读:3799
- 22批量群发邮件 阅读:3381
- 23怎么发广告邮件阅读:3625
- 24邮件批量发送系统使用方法阅读:3336
- 25群发邮件数量限制阅读:3907
- 26批量发送个性化邮件阅读:3448
- 27邮件怎么群发给很多人阅读:3275
- 28如何自动发广告邮件阅读:3608
- 29如何群发邮件阅读:75746
- 30邮件如何发给多人阅读:76063
标签更多+