LOTUSSCRIPT /COM/OLE のクラス

例:Send メソッド
次のスクリプトは [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

関連項目