用LOTUS开发C/S发面的程序时,经常会有要求发送带格式的邮件功能,而且邮件中的一些内容是动态的;最好的解决办法是增加一个配置表单,把带格式的邮件内容(如表格,背景色)等配置上,动态内容可以用########等符号代替,然后在发送邮件时把RTF域中的符号用实际的内容替换。
替换RTF域中特点符号的代码如下:
Dim docTemplate As NotesDocument
Dim docNotice As NotesDocument
Dim ContentItem As NotesItem
Dim rtmBody As NotesRichTextItem, rtrange As NotesRichTextRange, rtstyle As NotesRichTextStyle, rtnav As NotesRichTextNavigator
Set ContentItem = docTemplate.GetFirstItem("Body")
If ( ContentItem.Type = RICHTEXT ) Then
Set rtmBody = New NotesRichTextItem(docNotice,"Body")
Call rtmBody.AppendRTItem(ContentItem)
Set rtrange = rtmBody.CreateRange
Set rtstyle = rtrange.Style
Call rtmBody.AppendStyle(rtstyle)
'***************************************
Set rtnav = rtmBody.CreateNavigator
If rtnav.FindF