例: DeleteDocument method (NotesUIDocument - LotusScript)

次のスクリプトは現在の文書を閉じて削除マークを付けます。ただし、文書が編集モードのときは何もしません。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  If Not ( uidoc.EditMode ) Then
    Call uidoc.DeleteDocument
  End If
End Sub

次のスクリプトは DeleteDocument を呼び出した後で現在の文書を分類しようとしますが、分類はできません。

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
If Not ( uidoc.EditMode ) Then
  Call uidoc.DeleteDocument
  Call uidoc.Categorize( "Purged" )
  'error, since uidoc object is not valid
End If