LOTUSSCRIPT /COM/OLE のクラス


例:FieldContains メソッド
次のスクリプトは、ユーザーが [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

関連項目