文档介绍:用VBA操纵Lotusnotes发邮件287,用lotusnotes发送邮件,第一种方法,SubSendWithLotus()DimnoSessionAsObject,noDatabaseAsObjectDimnoDocumentAsObject,noAttachmentAsObjectDimFileSelfAsStringDimiAsLongConstEMBED_ATTACHMENT=1454ConststSubjectAsString="ForLotusVBAProgrammingTestonly"DimstMsgAsStringFileSelf=+"\"+="Bst&Rgds"&vbCrLf&&vbCrLf&_vbCrLf&_"**************************************************************************"&vbCrLf&_"(This'sanautomatede-mailnotification,pleasedonotreplythismessage.)"DimvaRecipientAsVariantvaRecipient=("huangfeng8211@")'=CreateObject("")SetnoDatabase=("","D:\notes\data\mail3\")===("Body"),"",="Memo".SendTo=====Now().SEND0,vaRecipientEndWithSetnoDocument=NothingSetnoDatabase=NothingSetnoSession=NothingAppActivate"MicrosoftExcel"MsgBox"Thisfilebesent",vbInformationEndSub第二种方法SubSendWithLotus()DimnoSessionAsObject,noDatabaseAsObjectDimnoDocumentAsObject,noAttachmentAsObjectDimvaFilesAsVariantDimiAsLongConstEMBED_ATTACHMENT=1454ConststSubjectAsString="ForLotusVBAProgrammingTestonly"ConststMsgAsString="Thisfileisforyou!justforreference"&vbCrLf&"IamStanleyPan"DimvaRecipientAsVariantvaRecipient=("stanleypan2000@","@")vaFiles=(FileFilter:="ExcelFiler(*.xls),*.xls",Title:="AttachfilesforoutgoingE_Mail",MultiSelect:=True)IfNotIsArray(vaFiles)ThenExitSub'=CreateObject("")SetnoDatabase=("","D:\notes\data\mail3\")===("Body")WithnoAttachmentFo