Examples: DeleteDocument method (NotesUIDocument - LotusScript)

  1. This script closes the current document and marks it for deletion. If the document is in Edit mode, however, the script does nothing.
    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
  2. This script incorrectly tries to categorize the current document after calling 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