Excel VBA基础：邮件发送对话框与自动发送示例.pdfVIP

EXAMPLEPROGRAM:word_email.doc

Thissonlooksattheexampincludedintheabovedocument.

Theexamplehastwosections.

1.Sendingasingleemailusingadialog,orsendingitwithoutadialog

2.Sendingmultipleemailswithoutusingadialog.

Inthefirstsection,aformhasbeencreatedwithtwochoicesavailable.

•“SendUsingDialog

or..

•“SendUsingNoDialog”

SENDUSINGDIALOG

lReturn=MAPISendMail(0,0,udtMessage,udtRecip,udtFile,MAPI_DIALOG,0)

Thesixthvaluepassedto“MAPISendMail”determineswhetherornotadialogistobeused.Avalueof“0”,as

below,indicatedthatnodialogistobeused.

SENDUSINGNODIALOG

lReturn=MAPISendMail(0,0,udtMessage,udtRecip,udtFile,0,0)

Inthesecondsection,thee-mailissendautomaticallyusingthefollowingprocedure.

PublicSubAuto_Mail_Send()

DimlresultAsLong

DimmsgAsMap

DimlSessAsLong

DimrAsMapiRecip

DimsNameAsString

DimfAsMapiFile

DimrowCountAsInteger

DimCountAsInteger

DimMyPathAsString

Getthecurrectpath

MyPath=CurDir

rowCount=2

SetMyTable=ActiveDocument.Tab(2)

thelasttwocharactersneedtoberemovedfromthe

tablecellvaluesusedbelow

Whilestripit(MyTable.Cell(rowCount,4),2)

r.Address=stripit(MyTable.Cell(rowCount,4),2)

r.RecipClass=MAPI_TO

msg.Subject=stripit(MyTable.Cell(rowCount,2),2)++stripit(MyTable.Cell(rowCount,1),2)

msg.NoteText=stripit(MyTable.Cell(rowCount,3),2)

msg.RecipCount=1

lresult=MAPILogon(0,,,0,0,0)

lresult=MAPISendMail(0,0,msg,r,f,0,0)

lresult=MAPILogoff(0,0,0,0)

rowCount=rowCount+1

Wend

Changethepathbackfromtheemailapplication

ChDirMyPath

示例程序：word_email.doc

本课将介绍上述