vba群发qq邮件

  

很多常用excel表格的小伙伴相信对vba肯定都不陌生,其实vba也可以用来群发qq邮件,下面一米软件就来教教大家怎么做。


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邮件群发方法,可以访问一米软件官网。

相关资讯