Examples: MarkForDelete method

This agent marks a database for deletion. It is effective if the database is on a server on a cluster with the Cluster Manager running.

Sub Initialize
  Dim db As New NotesDatabase("Cathy/Otus", _
  "Test\TestMarkForDelete.nsf")
  If db.IsOpen Then
    Call db.MarkForDelete()
    Messagebox db.IsInService,, "Is in service"
    Messagebox db.IsPendingDelete,, "Is pending delete"
  Else
    Messagebox "Could not open",, "TestMarkForDelete.nsf"
  End If
End Sub