需要在邮件的正文中加上正文和对一个文档的链接，代码方式自动实现。
maildoc.body= "正文内容 "
Set bodyItem = New NotesRichTextItem(Maildoc, "Body ")
Call bodyItem.AppendDocLink(doc, " 链接 " )
用这种方法会把正文内容覆盖，只出现一个文档链接。
怎么能让正文和一个文档的链接同时出现
------解决方案--------------------
Call bodyItem.AppendDocLink(doc, " 链接 " )
既然叫appenddoclink，中文意思就是在当前的位置上增加一个文档链接，不是你说的，会覆盖正文，你可以将正文用appendtext方法增加上去，再用appenddoclink的方法增加一个文档链接，看看会不会覆盖。
------解决方案--------------------
dim bodyItem as new notesrichtextitem(maildoc, "body ")
call bodyItem.appendtext( "正文内容 ")
call bodyItem.appenddoclink(doc, "链接 ")
------解决方案--------------------
Set bodyItem = New NotesRichTextItem(Maildoc, "Body ")
问题出在这一句，你把maildoc里面body这个域给new了，在内存里，这个实体的所有内容被清空。
试试set bodyitem = maildoc.getfirtitem( "Body "),这样的话bodyitem变量会指向body，而不是清空
getfirtitem好像是这个方法，很久不做开发，记不住了，呵呵，自己查查帮助