Dim rtitem As NotesRichTextItem
Dim shenqing As String
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)