最完美的利用EXCEL自動批量發(fā)送郵件-自動調用帳戶簽名自動化操作

最完美的利用EXCEL自動批量發(fā)送郵件-自動調用帳戶簽名自動化操作完善的利用excel宏調用outlook自動批量發(fā)送電子郵件

在excel宏中建立兩個模塊，分別復制以下兩個模塊

（根據(jù)需要調整相應參數(shù)）

提取簽名函數(shù)：

FunctionGetBoiler(ByValsFileAsString)AsString

'DickKusleika

DimfsoAsObject

DimtsAsObject

Setfso=CreateObject(Scripting.FileSystemObject)

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

GetBoiler=ts.readall

ts.Close

EndFunction

主程序：

PrivateDeclareFunctiontimeGetTimeLibwinmm.dll()AsLong

PrivateDeclareSubSleepLibkernel32(ByValdwMillisecondsAsLong)

PrivateSubkaifaxin()

OnErrorResumeNext

DimbeforeCount

DimyjCount

Dimi

DimSigStringAsString

DimSignatureAsString

DimSavetimeAsDouble

DimStartTimeAsDate

DimrowCount,endRowNo

DimobjOutlookAsNewOutlook.Application

DimobjMailAsMailItem

beforeCount=1

'取得當前工作表與Cells(1,1)相連的數(shù)據(jù)區(qū)行數(shù)

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

'創(chuàng)建objOutlook為Outlook應用程序對象

SetobjOutlook=NewOutlook.Application

'開始循環(huán)發(fā)送電子郵件

ForrowCount=1To1000

'創(chuàng)建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

'設置發(fā)信帳戶

.SendUsingAccount=objOutlook.Session.Accounts(1)

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

'設置發(fā)信帳戶

.SendUsingAccount=objOutlook.Session.Accounts(2)

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

'設置發(fā)信帳戶

.SendUsingAccount=objOutlook.Session.Accounts(3)

EndIf

'設置收件人地址（從通訊錄表的“E-mail地址”字段中獲得）

.To=Cells(rowCount,2)

'.To=abcd@

'設置郵件主題

.Subject=si

'設置郵件內容（從通訊錄表的“內容”字段中獲得）

.HTMLBody=Signature

'設置附件（從通訊錄表的“附件”字段中獲得）

'.Attachments.AddCells(rowCount,4)

'顯示郵件

'.Display

'自動發(fā)送郵件

.Send

Savetime=timeGetTime'記下開始時的時間

WhiletimeGetTimeSavetime+40000'循環(huán)等待

DoEvents'轉讓控制權，以便讓操作系統(tǒng)處理其它的事件。

Sleep1

Wend

If(rowCount-beforeCount)=