很多常用excel表格的小伙伴相信對vba肯定都不陌生，其實vba也可以用來群發(fā)qq郵件，下面一米軟件就來教教大家怎么做。

VBS腳本 實現(xiàn)郵件一鍵群發(fā) '郵件群發(fā)VBS

將需要發(fā)送的郵件地址保存到本腳本所在目錄的Emaillist.txt文件內(nèi)，每行一個地址

本程序不區(qū)分郵件地址的有效性，請自行確認(rèn)

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("沒有需要發(fā)送的郵件地址;請確認(rèn)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")

'發(fā)信設(shè)置

Email.From = "webmaster" '用來發(fā)送郵件的地址

Email.To = ToEmail

Email.Subject = "發(fā)送測試" '郵件主題

Email.Htmlbody = "發(fā)送測試 body" '郵件內(nèi)容

Email.AddAttachment "c: est.rar" '附件未知

With Email.Configuration.Fields

.Item(NameSpace&"sendusing") = 2

.Item(NameSpace&"smtpserver") = "mail.test.com" 'SMTP服務(wù)器地址

.Item(NameSpace&"smtpserverport") = 25

.Item(NameSpace&"smtpauthenticate") = 1

.Item(NameSpace&"sendusername") = "username" '郵箱賬號

.Item(NameSpace&"sendpassword") = "password" '郵箱密碼

.update

End With

Email.Send

loop

Msgbox("發(fā)送完畢，共發(fā)送了"&counter&"封郵件.謝謝使用")

file.Close

以上就是vba群發(fā)qq郵件的全部過程， 想要了解更多qq郵件群發(fā)方法，可以訪問一米軟件官網(wǎng)。