例: PostModeChange event

次のスクリプトは現在の文書が読み込みモードから編集モードに変更されるたびに [ProblemHistory] フィールドに文字列を追加します。

Sub Postmodechange(Source As Notesuidocument)
  Dim dateTime As New NotesDateTime( "Today" )
  If source.EditMode Then
    Call source.FieldAppendText _
    ( "ProblemHistory", _
    "Problem edited on " & dateTime.LocalTime )
  End If    
End Sub