用VBA操纵Lotus notes发邮件.doc

精心整理287,用lotusnotes发送邮件，第一种方法，SubSendWithLotus()DimnoSessionAsObject,noDatabaseAsObjectDimnoDocumentAsObject,noAttachmentAsObjectDimFileSelfAsStringDimiAsLongConstEMBED_ATTACHMENT=1454ConststSubjectAsString=ForLotusVBAProgrammingTestonlyDimstMsgAsStringFileSelf=ThisWorkbook.Path+ThisWorkbook.NamestMsg=Bst&Rgds&vbCrLf&_Application.UserName&vbCrLf&_vbCrLf&_*&vbCrLf&_(Thissanautomatede-mailnotification,pleasedonotreplythismessage.)DimvaRecipientAsVariantInsertLotusNotesCOMobject.SetnoSession=CreateObject(Notes.NotesSession)SetnoDatabase=noSession.GETDATABASE(,D:notesdatamail3tonyhf.nsf)IfnoDatabase.IsOpen=FalseThennoDatabase.OPENMAILSetnoDocument=noDatabase.CREATEDOCUMENTSetnoAttachment=noDocument.CREATERICHTEXTITEM(Body)noAttachment.EMBEDOBJECTEMBED_ATTACHMENT,FileSelfWithnoDocument.Form=Memo.SendTo=vaRecipient.Subject=stSubject.Body=stMsg.SAVEMESSAGEONSEND=True.PostedDate=Now().SEND0,vaRecipientEndWithSetnoDocument=NothingSetnoDatabase=NothingSetnoSession=NothingAppActivateMicrosoftExcelMsgBoxThisfilebesent,vbInformationEndSub第二种方法SubSendWithLotus()DimnoSessionAsObject,noDatabaseAsObjectDimnoDocumentAsObject,noAttachmentAsObjectDimvaFilesAsVariantDimiAsLongConstEMBED_ATTACHMENT=1454ConststSubjectAsString=ForLotusVBAProgrammingTestonlyConststMsgAsString=Thisfileisforyou!justforreference&vbCrLf&IamStanleyPanDimvaRecipientAsVariantvaFiles=Application.GetOpenFilename(FileFilter:=ExcelFiler(*.xls),*.xls,Title:=AttachfilesforoutgoingE_Mail,MultiSelect:=True)IfNotIsArray(vaFiles)ThenExitSubInsertLotusNotesCOMobject.SetnoSession=CreateObject(Notes.NotesSession)SetnoDatabase=noSession.GETDATABASE(,D:notesdatamail3tonyhf.nsf)IfnoDatabase.IsOpen=FalseThennoDatabase.OPENMAILSetnoDocument=noDatabase.CREATEDOCUMENTSetnoAttachment=noDocument.CREATERICHTEXTITEM(Body)WithnoAttachmentFori=1ToUBound(vaFiles).EMBEDOBJECTEMBED_ATTACHMENT,vaFiles(i)NextiEndWithWithnoDocument.Form=Memo.SendTo=vaRecipient.Subject=stSubject.Body=stMsg.SAVEMESSAGEONSEND=True.PostedDate=Now().SEND0,vaRecipientEndWithSetnoDocument=NothingSetnoDatabase=NothingSetnoSession=NothingAppActivateMicrosoftExcelMsgBoxThisfileissendOK,vbInformationEndSub1,返回当前数据库的信息，a,返回当前数据库的名称，结果，b,返回当前数据库的文件名，c,返回当前数据库的文件路径，2，发送邮件的一些设置，Subaaaaaa()DimnoAsObjectDimdbAsObjectDimdocAsObjectDimfieldsAsObjectDimnofieldsAsObjectDimattAsVariantatt=Application.GetOpenFilename(FileFilter:=ExcelFiler(*.xls),*.xls,_Title:=AttachfilesforoutgoingE_Mail,MultiSelect:=True)添加附件Setno=CreateObject(notes.notessession)建立和邮件的连接Setdb=no.CURRENTDATABASE建立和邮件数据库的连接Setdoc=db.CREATEDOCUMENT创建一个新的邮件Setfields=doc.CREATERICHTEXTITEM(body)设置新邮件的正文（附件）对象Withfields设置邮件的正文和附件.APPENDTEXTthise-mailisgeneratedbyanautomatedprocessjustforatest.ADDNEWLINE1增加第一行.APPENDTEXTpleasedonotreply.ADDNEWLINE2增加第二行Fori=1ToUBound(att)添加附件.EMBEDOBJECT1454,att(i)NextiEndWithWithdoc设置新邮件的除正文和附件外的其他信息.form=Memo新邮件.Subject=thismailisjustfortesting主题.SAVEMESSAGEONSEND=True是否保存发送的邮件到发件箱.postdate=DateAdd(d,1,Date)发送日期等于当天.SEND0发送EndWithMsgBoxsuccessfullysentoutthemail!Setno=Nothing释放内存Setdb=NothingSetdoc=NothingSetfields=NothingEndSub在添加附件的时候，如果只是想将当前的活动工作薄作为附件的话，如下，注意一下,如果是1452的话,效果如下,会出现一个提示,询问文档包含外部对象链接,是否要更新链接,如果确定的话,效果如下,会将EXCEL文件中的内容以图片形式打开,同时文件是只读格式的,如果是1453,效果如下,不会有提示,但是文件为只读,如果为1454,则为正常的EXCEL文件格式,3,提取邮件的一些信息，以上的发件人，发送时间，主题等信息还可以如下表示，运行结果，4，指定是在收件箱，发件箱或其他自定义的文件夹，a,收件箱等邮箱本身就存在的，b,如果是自己创建的文件夹及子文件夹，比如在我的邮箱中有自定义的文件夹，folders,如果要想获取其下面的子文件夹之一的相关资料，则应如下书写，4,用上面的方法提取出来的发件人是有公司名称的，anotes.CREATENAME(adocument.GETITEMVALUE(from)(0).ABBREVIATED如果不使用abbreviated,则结果为，如果想要输出的发件人只有名字，没有公司名的话，可以做如下更改，结果为，排版之后的效果如下所示，5,如果想要将附件保存到指定的文件夹的话，以上代码是将发件箱中的附件保存到D盘的新建文件夹，以下将发件箱改成自定义的文件夹，”HRinformation”6,用以下方法也可以获得附件的名称，结果，也可以将oemb.source改成,结果一样，结果，以上代码是获取发件箱中的第一个邮件的附件名称，7,设置发送邮件时的邮件正文，以上的代码中，其实withfields和withdoc都是设置邮件的正文，withfields,是设置邮件的正文和附件信息，withdoc,是设置邮件的发送人，是否保存到发件箱等一些其他的信息，8,在发送邮件的时候，要注意body的问题，a,如果自始至终都使用body来添加附件和正文的话，则添加的正文就不会出现，就只有附件，发送后的结果，注意，以上发送出去的邮件是没有正文的，只有附件，就是说以上的代码用withdoc添加的body正文没有添加成功，如果想要有正文的话，有两个办法，第一， 将第一个括号里面的body改成和第三个红框里面的body不同的字符，结果，注意，这样更改后的结果就是，发送的邮件的正文文本和附件之间有一条线分隔，第二种方法，就是用appendtext方法添加空行的方法，以上的代码就是通过添加空行，添加文本的方法来添加正文文本部分，结果，9,枚举所有folder的名称，结果，以上代码是返回所有的文件夹，以下的代码返回的是非文件夹，结果，10,如果想要将发件人的名称改成其他的名称，比如groupsender,可以做如下设置，请注意以上代码中的红色框框部分，加上doc.principal=“groupsender”，收到的邮件的发件人就会显示groupsender,结果，11,如果在没有打开邮箱的情况下想发送邮件，可以设置如下Subabb()DimMaildbAsObjectDimMailDocAsObjectDimBodyAsObjectDimSessionAsObjectStartasessiontonotesSetSession=CreateObject(Lotus.NotesSession)ThislinepromptsforpasswordofcurrentIDnotedinNotes.INICallSession.InitializeorusebelowtosupplypasswordofthecurrentIDCallSession.Initialize()OpenthemaildatabaseinnotesSetMaildb=Session.GETDATABASE(,D:notesdatamail3tonyhf.nsf)IfNotMaildb.IsOpen=TrueThenCallMaildb.OpenEndIfCreatethemaildocumentSetMailDoc=Maildb.CREATEDOCUMENTCallMailDoc.REPLACEITEMVALUE(Form,Memo)SettherecipientSetsubjectCallMailDoc.REPLACEITEMVALUE(Subject,SubjectText)CreateandsettheBodycontentSetBody=MailDoc.CREATERICHTEXTITEM(Body)CallBody.APPENDTEXT(Bodytexthere)Exampletocreateanattachment(optional)CallBody.ADDNEWLINE(2)CallBody.EMBEDOBJECT(1454,ActiveWorkbook.FullName)Exampletosavethemessage(optional)MailDoc.SAVEMESSAGEONSEND=TrueSendthedocumentGetsthemailtoappearintheSentitemsfolderCallMailDoc.REPLACEITEMVALUE(PostedDate,Now()CallMailDoc.SEND(False)CleanUpSetMaildb=NothingSetMailDoc=NothingSetBody=NothingSetSession=NothingEndSub结果，首先会要求输入密码，这样的话，不用打开lotusnotes就可以发送邮件了如果不想每次都手动的输入密码的话，可以如下设置，callsession.initialize(“密码”)Subabb()DimMaildbAsObjectDimMailDocAsObjectDimBodyAsObjectDimSessionAsObjectSetSession=CreateObject(lotus.NotesSession)CallSession.Initialize(ilove1237)SetMaildb=Session.GETDATABASE(,D:notesdatamail3tonyhf.nsf)IfNotMaildb.IsOpen=TrueThenCallMaildb.OpenEndIfSetMailDoc=Maildb.CREATEDOCUMENTCallMailDoc.REPLACEITEMVALUE(Form,Memo)CallMailDoc.REPLACEITEMVALUE(Subject,SubjectText)SetBody=MailDoc.CREATERICHTEXTITEM(Body)CallBody.APPENDTEXT(Bodytexthere)CallBody.ADDNEWLINE(2)CallBody.EMBEDOBJECT(1454,ActiveWorkbook.FullName)MailDoc.SAVEMESSAGEONSEND=TrueCallMailDoc.REPLACEITEMVALUE(PostedDate,Now()CallMailDoc.SEND(False)SetMaildb=NothingSetMailDoc=NothingSetBody=NothingSetSession=NothingMsgBox发送成功!EndSub结果如下，12,如果想要设置发送邮件时候的抄送等信息，设置如下，结果，如果想要发送给多个收件人，则设置如下，结果，13,如果想要在发出的邮件中添加当前的签名的话，可以设置如下，其中，如果当前的签名不是文本，而是图片的话，这句代码就会返回作为当前签名的图片的名称和存放地址，说明我当前的签名图片是存放在D盘的photo1文件夹中的，图片名称为邮件，如下，最后发送出去的结果如下所示，可以看到，签名在此时就是图片的地址，因为其不是一段文本，所以才会这样，而如果签名为文本的时候，效果如下，以上就是上面这句代码返回的文本签名的内容，发送出去的邮件如下所示，14,如果想要进行正文文本的排版的话（即分段隔行等），设置如下，注意几个地方，一个是addnewline,在一句话完了之后的第一个vbnewline是起换行的作用，而第二个vbnewline才是新添加一个空行，二个是在这种情况下，如果通过doc的body属性添加正文文本的话，则在声明fields的时候，不能也使用body,要使用不同于body的名字，效果如下，要达到同样的效果，还有一种方法，请注意，上面的代码中，有addnewline，在其后面的数字表示添加的行数，一般如果是隔行的话，则要添加两行，一行起换行作用，一行为添加的空行，最终效果如下，15,返回邮件服务器的名称，结果，结果，16,返回notes的用户名，1,结果，2,结果，17,打开一个新邮件，并且将光标移到发件人，抄送人，或正文等处Subaaa()DimanotesDimaDataBaseDimaviewDimitotalDimadocumentDimwsDimnotesdocSetws=CreateObject(Notes.NotesUIWorkspace)Setanotes=CreateObject(Notes.NotesSession)SetaDataBase=anotes.GETDATABASE(,D:notesdatamail3tonyhf.nsf)Setnotesdoc=aDataBase.CREATEDOCUMENTSetuidoc=ws.EDITDOCUMENT(True,notesdoc)Calluidoc.GOTOFIELD(Body)EndSub执行完以上的代码之后，光标会移到邮件的正文，处于编辑状态，如果将body换成subject的话，光标就会处于收件人处，18,如何根据工作表中多个邮箱地址发邮件，Sub发送邮件()DimMaildbAsObjectDimMailDocAsObjectDimBodyAsObjectDimSessionAsObjectDimattDimarrx=Sheets(1).Range(a65536).End(xlUp).RowReDimarr(1Tox)Fory=1Toxarr(y)=Sheets(1).Cells(y,1)Nextyatt=Application.GetOpenFilename(FileFilter:=ExcelFiler(*.xls),*.xls,_Title:=AttachfilesforoutgoingE_Mail,MultiSelect:=True)添加附件SetSession=CreateObject(lotus.NotesSession)Session.Initialize(ilove1237)SetMaildb=Session.GETDATABASE(,D:notesdatamail3tonyhf.nsf)IfNotMaildb.IsOpen=TrueThenCallMaildb.OpenEndIfSetMailDoc=Maildb.CREATEDOCUMENTCallMailDoc.REPLACEITEMVALUE(Form,Memo)CallMailDoc.REPLACEITEMVALUE(SendTo,arr)CallMailDoc.REPLACEITEMVALUE(Subject,SubjectText)SetBody=MailDoc.CREATERICHTEXTITEM(Body)CallBody.APPENDTEXT(Bodytexthere)CallBody.ADDNEWLINE(2)Fori=1ToUBound(att)CallBody.EMBEDOBJECT(1454,att(i)NextiMailDoc.SAVEMESSAGEONSEND=TrueCallMailDoc.REPLACEITEMVALUE(PostedDate,Now()CallMailDoc.SEND(False)SetMaildb=NothingSetMailDoc=NothingSetBody=NothingSetSession=NothingMsgBox发送成功!EndSub结果，19,如何用VBS发邮件，Dimmydocu,os,myBodySetos=CreateObject(Notes.NotesSession)SetmyBody=myDocu.CREATERICHTEXTITEM(Body)withmybody.appendtextthise-mailisgeneratedbyautomatedprocess,youdontneedtoreply.addnewline2.embedobject1454,C:DocumentsandSettingstony桌面overheadgroup.xlsendwithwithmydocu.CopyTo=.Subject=thisisfortest.SEND0endwithmsgbox发送邮件成功!,vbinformation,提示SetmyDocu=NothingSetmyBody=NothingSetos=Nothing发送方法，双击VBS图标即可，20,如何将excel的部分内容作为richtext格式粘贴在邮件中,Subaa()DimnoAsObjectDimdbAsObjectDimclipboardAsDataObjectDimdocAsObjectDimfieldAsObjectSetno=CreateObject(notes.notessession)建立和邮件的连接Setdb=no.CurrentDatabaseSetdoc=db.CreateDocumentSetfield=doc.CreateRichTextItem(body)Selection.CopySetclipboard=NewDataObjectclipboard.GetFromClipboardWithfield.AppendText此邮件为系统自动发送，请不要回复，仅作为测试使用！.AddNewLine2.AppendTextclipboard.GetText(1)EndWithWithdoc.form=Memo.Subject=自动邮件.SaveMessageOnSend=True.postdate=Now().Send0EndWithSelection(1).SelectApplication.CutCopyMode=FalseEndSub发送的效果如下图,21,在发送附件的时候要注意的问题,以下的代码的目的是发送带附件的邮件,但是有个问题值得注意:下面的正文部分和收件人信息部分不能置换位置,如果将收件人信息放在正文上方,则发出的邮件正文部分为空白,22,如何避免在用循环发送多个邮件的时候,出现所有的附件都集中在一个邮件中的情况,如果以上面的代码发送邮件的话,就会出现所有的邮件都集中在一个邮件中的情况,效果如下,原因为:VBA和Lotusnotes执行不同步造成的,因为当lotusnotes还没有处理完前一个邮件的时候,VBA已经执行到下一个循环了,解决办法:执行完一个循环,就将设置正文及标题信息的doc对象设置成nothing,然后到下一个循环的时候,再用set函数创建,发送后的效果如下所示:23,notesview的type值, ACTIONCD(16)meanssavedactionCDrecords;non-Computable;canonicalform. ASSISTANTINFO(17)meanssavedassistantinformation;non-Computable;canonicalform. ATTACHMENT(1084)meansfileattachment. AUTHORS(1076)meansauthors. COLLATION(2).NoteThisvalueisnewwithRelease6. DATETIMES(1024)meansdate-timevalueorrangeofdate-timevalues. EMBEDDEDOBJECT(1090)meansembeddedobject. ERRORITEM(256)meansanerroroccurredwhileaccessingthetype. FORMULA(1536)meansNotesformula. HTML(21)meansHTMLsourcetext. ICON(6)meansicon. LSOBJECT(20)meanssavedLotusScriptObjectcodeforanagent. MIME_PART(25)meansMIMEsupport. NAMES(1074)meansnames. NOTELINKS(7)meanslinktoadatabase,view,ordocument. NOTEREFS(4)meansreferencetotheparentdocument. NUMBERS(768)meansnumberornumberlist. OTHEROBJECT(1085)meansotherobject. QUERYCD(15)meanssavedqueryCDrecords;non-Computable;canonicalform. READERS(1075)meansreaders. RFC822Text(1282)meansRFC822Internetmailtext. RICHTEXT(1)meansrichtext. SIGNATURE(8)meanssignature. TEXT(1280)meanstextortextlist. UNAVAILABLE(512)meanstheitemtypeisntavailable. UNKNOWN(0)meanstheitemtypeisntknown. USERDATA(14)meansuserdata. USERID(1792)meansuserIDname. VIEWMAPDATA(18)meanssavedViewMapdataset;non-Computable;canonicalform. VIEWMAPLAYOUT(19)meanssavedViewMaplayout;non-Computable;canonicalform.以下代码返回inbox中的最后一封邮件的body的类型,SubClick()DimsessionDimdbDimviewDimdocDimentDimfilDimiteDimdoc1Dimembfil=0ite=0emb=0Setsession=CreateObject(notes.notessession)Setdb=session.GETDATABASE(,d:notesdatamail3tonyhf.nsf)Setview=db.GetView($inbox)Setdoc=view.getlastdocumentSetdoc1=doc.getfirstitem(body)MsgBoxdoc1.TypeEndsub结果24,notesdocument和notesrichtextitem在有附件时候的区别,结果也就是说,notesdocument是支持hasembedded属性的，而notesrichtextitem是不支持的,同时,noteitem也没有这个属性,因为richtextitem是item的一种子类型,注意以下的语句,想通过以上的代码首先判断最后一封邮件中是否有附件，如果有，则依次返回其名称，结果，原因如下，UnliketheEmbeddedObjectspropertyinNotesRichTextItem,thispropertydoesnotincludefileattachments,norOLE/1objectscreatedinNotesRelease3.ThispropertydoesincludeOLE/2andOLE/1objectscreatedinNotesRelease4.Italsoincludesobjectsinthedocumentthatwereoriginallyembeddedinthedocumentsform.Suchobjectsmusthavebeenactivated,modified,andre-savedinordertobereturnedbythisproperty(otherwisetheyremainapartoftheform,notthedocument).所以要想达到以上效果，要通过notesrichtextitem对象,即上面的代码中定义的doc1,但是doc1没有hasembedded这个属性可以判断是否包括附件，但是要判断是否包含附件，可以通过notesdocument对象的的hasembedded属性，结果，25,item中的element,使用getfirstelement,如果使用findfirstelement,则有以下type,26,返回邮件正文(不包括签名),-包括发件人，时间，收件人，抄送，主题，SubClick()DimsessionDimdbDimviewDimdocDimentDimfilDimiteDimdoc1DimembSetsession=CreateObject(notes.notessession)Setdb=session.GETDATABASE(,d:notesdatamail3tonyhf.nsf)Setview=db.GetView($inbox)Setdoc=view.getlastdocumentSetdoc1=doc.getfirstitem(body)Setent=doc1.createnavigatorIfent.findfirstelement(4)ThenDoSetemb=doc1.createrangeCallemb.setbegin(ent)MsgBoxemb.textparagraphLoopUntilNotent.findnextelement(4)EndIfEndSub结果，26,关闭当前打开的邮件窗口,Suba()DimworkspaceDimuidocDimuidoc1Setworkspace=CreateObject(notes.notesuiworkspace)Setuidoc=workspace.CurrentdocumentCalluidoc.CloseEndSub结果，27,如何返回当前打开邮件的相关信息,返回正文部分,发件人收件人抄送秘密抄送正文另外一种返回此上信息的方法是通过notesdocument对象的getitemvalue方法，返回正文，和通过notesuidocument对象的fieldgettext方法相比,优点在于:返回的正文的文本格式没有变化,28,如何设置文字的格式-CREATERICHTEXTSTYLESubaaaaaa()DimnoAsObjectDimdbAsObjectDimdocAsObjectDimfieldsAsObjectDimnofieldsAsObjectDimattAsVariantDimstyleAsObjectSetno=CreateObject(notes.notessession)建立和邮件的连接Setdb=no.CURRENTDATABASE建立和邮件数据库的连接Setdoc=db.CREATEDOCUMENT创建一个新的邮件Setfields=doc.CREATERICHTEXTITEM(body)设置新邮件的正文（附件）对象Setstyle=no.CREATERICHTEXTSTYLEWithfields设置邮件的正文和附件style.notescolor=3style.Bold=Truestyle.FontSize=12.APPENDSTYLEstyle.APPENDTEXTThisisanexample!style.notescolor=4style.Bold=Truestyle.FontSize=14.APPENDSTYLEstyle.APPENDTEXTHello,style.notescolor=5style.Bold=Truestyle.FontSize=16.APPENDSTYLEstyle.APPENDTEXTWorld!style.notescolor=6style.Bold=Truestyle.FontSize=18.APPENDSTYLEstyle.APPENDTEXTLOL!EndWithWithdoc设置新邮件的除正文和附件外的其他信息.form=Memo新邮件.Subject=thismailisjustfortesting主题.SAVEMESSAGEONSEND=True是否保存发送的邮件到发件箱.postdate=DateAdd(d,1,Date)发送日期等于当天.send0发送EndWithMsgBoxsuccessfullysentoutthemail!Setno=Nothing释放内存Setdb=NothingSetdoc=NothingSetfields=NothingEndSub结果29,如何判断NOTES是否有打开要用database的isopen属性来判断SubOpenDataBase()DimaNotesDimaDataBaseDimstrTempAsStringSetaNotes=CreateObject(Notes.NotesSession)SetaDataBase=aNotes.CURRENTDATABASEIfaDataBase.IsOpenThenMsgBoxIsOpenElseMsgBoxNotOpenEndIfIfaDataBase.IsOpenThenMsgBoxaDataBase.Title&已打开&vbcrlf&aDataBase.FilenameElseMsgBox未打开,aDataBase.FilenameEndIfSetaNotes=NothingSetaDataBase=NothingEndSub结果而上面显示的数据库是当前打开的数据库中的活动数据库如果我激活另外的打开的数据库，结果就会不同，30,如何在邮件中添加表格richtextitem,appendtableSubaaaaaa()DimnoAsObjectDimdbAsObjectDimdocAsObjectDimfieldsAsObjectDimatt()AsStringDimnrtnAsObjectDimx,yAsIntegerSetno=CreateObject(notes.notessession)建立和邮件的连接Setdb=no.CURRENTDATABASE建立和邮件数据库的连接Setdoc=db.CREATEDOCUMENT创建一个新的邮件Setfields=doc.CREATERICHTEXTITEM(body)设置新邮件的正文（附件）对象Setnrtn=fields.CREATENAVIGATORfields.APPENDTABLE11,4nrtn.FINDFIRSTELEMENTRTELEM_TYPE_TABLECELLForx=1To11Fory=1To4fields.BEGININSERTnrtnfields.APPENDTEXTSheets(1).Cells(x,y).Valuefields.ENDINSERTnrtn.FINDNEXTELEMENTRTELEM_TYPE_TABLECELLNextyNextxWithdoc设置新邮件的除正文和附件外的其他信息.form=Memo新邮件.Subject=thismailisjustfortesting主题.SAVEMESSAGEONSEND=True是否保存发送的邮件到发件箱.postdate=DateAdd(d,1,Date)发送日期等于当天.SEND0发送EndWithMsgBoxsuccessfullysentoutthemail!Setno=Nothing释放内存Setdb=NothingSetdoc=NothingSetfields=NothingSetnrtn=NothingEndSub上面的RTELEM_TYPE_TABLECELL也相当于一个常量数字7结果31,在添加表格的时候指定表格的列宽32,如何保存草稿而不发送邮件Subaaaaaa()DimnoAsObjectDimdbAsObjectDimdocAsObjectDimfieldsAsObjectDimatt()AsStringDimnrtnAsObjectDimx,yAsIntegerSetno=CreateObject(notes.notessession)建立和邮件的连接Setdb=no.CURRENTDATABASE建立和邮件数据库的连接Setdoc=db.CREATEDOCUMENT创建一个新的邮件Setfields=doc.CREATERICHTEXTITEM(body)设置新邮件的正文（附件）对象Withdoc设置新邮件的除正文和附件外的其他信息.form=Memo新邮件.Subject=thismailisjustfortesting主题.SAVEMESSAGEONSEND=True是否保存发送的邮件到发件箱.SaveFalse,True.postdate=DateAdd(d,1,Date)发送日期等于当天.SEND0发送EndWithMsgBoxsuccessfullysentoutthemail!Setno=Nothing释放内存Setdb=NothingSetdoc=NothingSetfields=NothingSetnrtn=NothingEndSub结果关键的语句是doc.save，其参数可以是false,true,或是true,true,33,引用RT_ELEM时候出现的问题如果要引用导航器，那上面在使用导航器来找到第一个表格的单元格的时候，如果是使用的字符串常量，RTELEM_TYPE_TABLECELL，同时没有引用LotusDominoObjects,就会出现问题，错误如下，可以看到，出错就是在这一句如果我们将字符串常量更改成数值型常量7，就不会出现问题34,列出所有视图SubGetAllViews()DimaNotesDimaDataBaseDimaViewDimjAsIntegerSetaNotes=CreateObject(Notes.NotesSession)SetaDataBase=aNotes.CURRENTDATABASEj=1ForEachaViewInaDataBase.VIEWSCells(j,1)=aView.NameCells(j,2)=aView.ISFOLDERj=j+1NextSetaNotes=NothingSetaDataBase=NothingSetaView=NothingEndSub结果35,列出收件箱下面的第一个邮件的标题SubGetAllViews()DimaNotesDimaDataBaseDimaViewDimdocDimjAsIntegerS