LOTUSSCRIPT /COM/OLE のクラス

例:Forward メソッド
次のスクリプトは現在の文書を転送します。新規文書の場合にはエラーメッセージを表示します。

Sub Click(Source As Button)
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument
 If uidoc.IsNewDoc Then
   Messagebox _
   ( "Please save the document before forwarding it.")
 Else
   Call uidoc.Forward
 End If
End Sub

関連項目