例: Send method (NotesUIDocument - LotusScript®)

次のスクリプトは [Status] フィールドの内容に基づいて [SendTo] フィールドの内容を設定してから、文書をメールで送信します。文書が保存される前の [Status] の値が「New」のとき、[SendTo] フィールドに管理者の名前を入力します。値が「Approved」のときは HR 担当者の名前を入力します。「Rejected」のときは従業員の名前を入力します。

Sub Querysave(Source As Notesuidocument, Continue As Variant)
  s = source.FieldGetText( "Status" )
  Select Case s
  Case "New" :
    Call source.FieldSetText _
    ( "SendTo", source.FieldGetText( "Manager" ) )
  Case "Approved" : 
    Call source.FieldSetText _
    ( "SendTo", source.FieldGetText( "HRContact" ) )
  Case "Rejected" : 
    Call source.FieldSetText _
    ( "SendTo", source.FieldGetText( "Employee" ) )
  End Select
  Call source.Send
End Sub