最完美利用EXCEL自动批量发送邮件自动调用帐户签名自动化操作初中教育

1/1最完美利用EXCEL自动批量发送邮件-自动调用帐户签名自动化操作-初中教育

完善的利用excel宏调用outlook自动批量发送电子邮件

在excel宏中建立两个模块，分别复制以下两个模块

（依据需要调整相应参数）

提取签名函数：

FunctionGetBoiler(ByValsFileAsString)AsString

'DickKusleika

DimfsoAsObject

DimtsAsObject

Setfso=CreateObject(Scripting.FileSystemObject)

Setts=fso.GetFile(sFile).OpenAsTextStream(1,-2)

GetBoiler=ts.readall

ts.Close

EndFunction

主程序：

PrivateDeclareFunctiontimeGetTimeLibwinmm.dllAsLong

PrivateDeclareSubSleepLibkernel32(ByValdwMillisecondsAsLong)

PrivateSubkaifaxin

OnErrorResumeNext

DimbeforeCount

DimyjCount

Dimi

DimSigStringAsString

DimSignatureAsString

DimSavetimeAsDouble

DimStartTimeAsDate

DimrowCount,endRowNo

DimobjOutlookAsNewOutlook.Application

DimobjMailAsMailItem

beforeCount=1

'取得当前工作表与Cells(1,1)相连的数据区行数

endRowNo=Cells(1,1).CurrentRegion.Rows.Count

'创建objOutlook为Outlook应用程序对象

SetobjOutlook=NewOutlook.Application

'开头循环发送电子邮件

ForrowCount=1To1000

'创建objMail为一个邮件对象

SetobjMail=objOutlook.CreateItem(olMailItem)

SigString=C:/Users/jake/AppData/Roaming/Microsoft/Signatures/p.htm'提取签名

IfDir(SigString)Then

Signature=GetBoiler(SigString)

Else

Signature=

EndIf

WithobjMail

If(rowCount-beforeCount)=100Or(rowCount-yjCount)=100Then

'设置发信帐户

.SendUsingAccount=objOutlook.Session.Accounts(1)

ElseIf((rowCount-beforeCount)100And(rowCount-beforeCount)=200)Or((rowCount-yjCount)100And(rowCount-yjCount)=200)Then

'设置发信帐户

.SendUsingAccount=objOutlook.Session.Accounts(2)

ElseIf((rowCount-beforeCount)200And(rowCount-beforeCount)=300)Or((rowCount-yjCount)200And(rowCount-yjCount)=300)Then

'设置发信帐户

.SendUsingAccount=objOutlook.Session.Accounts(3)

EndIf

'设置收件人地址（从通讯录表的“E-mail地址”字段中获得）

.To=Cells(rowCount,2)

'.To=abcd@

'设置邮件主题

.Subject=si

'设置邮件内容（从通讯录表的“内容”字段中获得）

.HTMLBody=Signature

'设置附件（从通讯录表的“附件”字段中获得）

'.Attachments.AddCells(rowCount,4)

'显示邮件

'.Display

'自动发送邮件

.Send

Savetime=timeGetTime'登记开头时的时间

WhiletimeGetTimeSavetime+40000'循环等待

DoEvents'转让掌握权，以便让操作系统处理其它的大事。

Sleep1

Wend

If(rowCount-beforeCount)=300Or(rowCount-beforeCount)=600Or(rowCount-beforeCount)=900Then

yjCount=rowCount

EndIf

EndWit

完善的利用excel宏调