RTF域完全掌握
1、RTF域是Notes中最重要的域，由于它能够保存文本、声音、图片、动画、附件以及按钮操作、链接等多媒体信息资料，是Notes不同于普通关系型数据库的重要特征。

2、RTF域的存储容量仅受机器硬盘限制，可以任意大的文件和程序。

3、当存储各种类型的RTF域，改变域类型成为文本类型时，仅其中的文本字符能够保存，其他的图片、附件等不能保存在文本类型域中。

4、RTF域在编程中，是不能通过公式函数来计算处理的，只能通过LotusScript来对其进行复制操作。

5、以下是用LotusScript复制、添加RTF域内容，经测试无误。

Sub Click(Source As Button)
%REM RTF域复制操作
作者：tnda 2000.3.5
http://notes.363.net/ mail:notes@363.net

RTF域值在程序中编辑修改后，只能调用doc.save(false,true)
不能调用uidoc.save，也不能在文档中单击保存按钮，
否则后台修改无效。
并且其修改的内容当前不能显示，只有不保存退出文档，再打开才能显示。

因为RTF域只能通过后台LotusScript修改。
%END REM
Dim uiw As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
Set uidoc = uiw.currentdocument
Set doc = uidoc.document \'获得当前文档

Dim rtitem1 As NotesRichTextItem
Set rtitem1 = doc.GetFirstItem( "aaaa" )

If rtitem1 Is Nothing Then Exit Sub
If rtitem1.Type <> RICHTEXT Then Exit Sub
\'文档没有保存以前，无法发现RTF域

Call rtitem1.AppendText( "这是第一个域值内容" )

Dim rtitem2 As NotesRichTextItem
Set rtitem2 = rtitem1.CopyItemToDocument( doc,"bbbb"
Call rtitem2.AppendText( "这是第二个域新内容" )

Call doc.Save( False, True )
End Sub