例: MarkForDelete method

次のエージェントは、削除するデータベースにマークを付けます。このメソッドは、クラスタ内のクラスタマネージャが稼働しているサーバー上にデータベースがある場合に有効です。

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