例: Forward method

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

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