一个没有立即显示的问题:

这是你的IE问题，你打开工具的Internet选项里有设置，选第一个

我的部分代码如下：itemC条目的内容即是我想要显示的RTF域的内容
Set itemB=doc.getfirstitem("NotionBak1")
Set itemC=doc.getfirstitem(doc.NotionName(0))
If itemC.text="" Then
Set itemC=New NotesRichTextItem(doc,doc.NotionName(0))
End If
If itemB.Text<>"" Then
Call itemC.AppendRTItem(itemB)
Call itemC.Addnewline(1)
End If
Call itemC.AppendText(追加的文字)
If (itemA.Type=Richtext) Then
Call itemC.AppendRTitem(itemA) '追加一个RTF条目的内容包含图片2K左右
End If
Call doc.save(False,True)
Call uidoc.Reload

我说的问题是在进行Notes开发时遇到的，请再帮帮忙!

可能是没有及时刷新，你在C/S写
Dim WS As New NotesUIWorkspace
Call WS.Reloadwindow()
看一下行吗？

Dim uidoc As notesuidocument
Set uidoc = uiw.currentdocument
Dim doc As notesdocument
Set doc = uidoc.document

Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set rtitem = doc.GetFirstItem("Body")
Call rtitem.AppendText("aaaaaa")
Call doc.Save( False, True )
Dim docnew As notesdocument
Set docnew = doc
' Dim uiw As New notesuiworkspace
Call uidoc.close()
Call uiw.EditDocument(False,docnew)