该技巧描述了三种在 Lotus Notes 中验证富文本输入域的快速方法。第一种方法验证的文本域中，任何文本（包括单个空格字符）都是可接受的输入。第二种方法验证的域中，要求至少有一个非空格文本。第三种方法验证的域中，可以不包含文本，但是可能包含附件、嵌入式对象或者链接。本文假设您具有使用 Domino Designer 和 LotusScript 开发应用程序的经验。

　　方法 1

　　在第一种方法中，只要域中包含有输入（哪怕是单个空格字符），就会通过验证。该验证使用包含域的表单的 Querysave 事件。下面的 LotusScript 示例代码执行这一验证：

Sub Querysave(Source As Notesuidocument, Continue As Variant)
　　　　　　If ( Source.FieldGetText( "rtfield" ) = "" ) Then
　　　　Messagebox( "Please enter some text." )
　　　　Call Source.GotoField( "rtfield" )
　　　　Continue = False
　　End If
End Sub

　　代码检查域 rtfield 中的任何字符。只要域中包含输入（哪怕它只是包含一个或多个空格字符），验证就会成功。如果域为空，则代码返回错误消息，并且不保存文档（通过将 Continue 设置为 False）。

　　方法 2

　　在第二种方法中，富文本域必须至少包含一个非空格字符（换句话说，只包含一个或多个空格的输入是不允许的）。该检查也使用表单的 Querysave 事件：

Sub Querysave(Source As Notesuidocument, Continue As Variant)
　　
　　Dim rtitem As NotesRichTextItem
　　Set doc = Source.Document
　　Set rtitem = doc.GetFirstItem( "rtfield" )
　　Dim text As String
　　
　　text$ = Source.FieldGetText("rtfield")
　　trimmed$ = Trim(text)
　　　　　　
　　　　　　if ( trimmed$ = "") Then
　　　　Msgbox "Please enter some text."
　　　　Continue = False
　　　　source.GotoField("rtfield")
　　　　source.Refresh(True)
　　Else
　　　　Continue = True
　　　　
　　End If
End Sub

　　方法 3

　　第三种方法验证的富文本中，只包含一个附件、嵌入式对象或者链接的输入是允许的，即使它不包含相应的文本。同样，还是使用包含域的表单的 Querysave 事件：

Sub Querysave(Source As Notesuidocument, Continue As Variant)
　　
　　Dim rtitem As NotesRichTextItem
　　Set doc = Source.Document
　　Set rtitem = doc.GetFirstItem( "rtfield" )
　　Dim text As String
　　
　　text$ = Source.FieldGetText("rtfield")
　　trimmed$ = Trim(text)
　　
　　If(doc.Hasembedded)　Then
　　　　Continue = True
　　　　　　　　
　　Elseif ( trimmed$ = "") Then
　　　　Msgbox "Please enter some text."
　　　　Continue = False
　　　　source.GotoField("rtfield")
　　　　source.Refresh(True)
　　Else
　　　　Continue = True
　　
　　　　　　End If
End Sub

　　如果文档的任何地方有一个附件，即使它不在所验证的域中，该代码也会工作。