由于RTF域中可以输入多种信息（文本、附件、直接粘贴的图片、链接等），所以在验证该RTF域是否为空的时候会很麻烦，下面提供一种简便的方法。可以完整的验证RTF域中是否有值。Function IsRTFNull(uidoc As NotesUIDocument , rtf As String) As Integer
'该函数必须在前台文档已经保存后才能生效！
call uidoc.save
Dim doc As NotesDocument
Set doc = uidoc.Document

IsRTFNull = False
Dim rtitem As Variant
Set rtitem = doc.GetFirstItem(rtf)

If rtitem.type <> RICHTEXT Then
If rtitem.text = "" Then
   IsRTFNull = True
   Exit Function  
End If
Else
If rtitem.ValueLength <= 102 Then
   '102是一个空的RTF域所占的字节数，这个值可能会因为RTF域的隐藏属性、
               'RTF域是否在表格中等因素的不同而不同，所以在使用的时候一定要先确定
               '你的文档中一个空的RTF所占的字节数用来替换这里的数值（获取方法参见下图）
   IsRTFNull = True
   Exit Function
End If
End If
End Function