例: Close method (NotesUIDocument - LotusScript®)

次のボタンスクリプトは現在の文書を閉じます。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.Close(True)
End Sub