rtf域的取值赋值

Dim rtitem As NotesRichTextItem
 Dim shenqing As String

Set rtitem = doc.GetFirstItem("FDshenqing") 
 shenqing = rtitem.GetUnFormattedText()  
 Dim newrtf As NotesRichTextItem 
 If newdoc.HasItem("FDshenqing") Then   
  Set newrtf = newdoc.GetFirstItem("FDshenqing")
 Else  
  Set newrtf = New NotesRichTextItem(newdoc,"FDshenqing")  
 End If 
 Call newrtf.AppendText(shengqing)