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