例: FieldContains method

次のスクリプトは、ユーザーが [Conclusion] フィールドから移動するときにその内容をチェックします。[Conclusion] フィールドの内容が「This project was a complete disaster」のように「disaster」という単語を含んでいると、「Sorry to hear it」というメッセージを表示します。

Sub Exiting(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  If uidoc.FieldContains( "Conclusion", "disaster" ) Then
    Messagebox( "Sorry to hear it." )
  End If
End Sub