Excel VBA邮件发送功能示例.pdfVIP

EXAMPLEPROGRAM:excel_email.xls

ThissonlooksattheexampincludedintheaboveEXCELworkbook.

Theexamplehastwosections.

1.Sendingasingleemailusingadialog,orsendingitwithoutadialog

2.Sendingmultipleemailswithoutusingadialog.

Inthefirstsection,aformhasbeencreatedwithtwochoicesavailable.

•“SendUsingDialog

or..

•“SendUsingNoDialog”

SENDUSINGDIALOG

lReturnMAPISendMail(0,0,udtMessage,udtRecip,udtFile,MAPI_DIALOG,0)

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

below,indicatedthatnodialogistobeused.

SENDUSINGNODIALOG

lReturnMAPISendMail(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

SetMyTableActiveDocument.Tab(2)

thelasttwocharactersneedtoberemovedfromthe

tablecellvaluesusedbelow

WhileActiveSheet.Cells(rowCount,4).Value

r.Address=ActiveSheet.Cells(rowCount,4).Value

r.RecipClass=MAPI_TO

msg.SubjectActiveSheet.Cells(rowCount,2).Value++ActiveSheet.Cells(rowCount,1).Value

msg.NoteText=ActiveSheet.Cells(rowCount,3).Value

msg.RecipCount1

lresultMAPILogon(0,,,0,0,0)

lresultMAPISendMail(0,0,msg,r,f,0,0)

lresultMAPILogoff(0,0,0,0)

rowCount=rowCount+1

Wend

_

示例程序：excelemail.xls

本课程着眼于上述EXCEL工作簿中包含的示例。

该示例有两个部分。

1.使用框发送单封电子邮件，或不使用框发送