例: PostRecalc event

次のスクリプトは現在の文書が再計算されるたびに [address] フィールドの内容を更新します。この文書には、[city] というキーワードフィールドが含まれます。このキーワードフィールドはキーワードのどれかが変更されるたびに複数のフィールドを更新する設定になっています。このため、[city] フィールドが変更されるたびに、このスクリプトが呼び出されます。スクリプトは [city] フィールドの内容に基づいて [address] フィールドの内容を変更します。

Sub Postrecalc(Source As Notesuidocument)
  Dim location As String
  location = source.FieldGetText( "city" )
  Select Case location
  Case "Cambridge"
    Call source.FieldSetText( "address", "5 Memorial Drive" )
  Case "Chicago"
    Call source.FieldSetText( "address", "44 Diversey Blvd" )
  Case "Paris"
    Call source.FieldSetText( "address", "32 Rue Henri IV" )
  End Select
End Sub