例: IsPendingDelete property (NotesDatabase - LotusScript®)

次のエージェントは、データベースが削除を保留している場合にサブルーチンを終了します。

Sub Initialize
  Dim db As New NotesDatabase("Cathy/Otus", _
  "Test¥TestMarkForDelete.nsf")
  If db.IsOpen Then
    If db.IsPendingDelete Then
      Messagebox "Cannot access database",, "Pending delete"
      Exit Sub
    End If
  Else
    Messagebox "Could not open",, "TestMarkForDelete.nsf"
  End If
  Dim doc As New NotesDocument(db)
  doc.Subject = "Test one"
  Call doc.save(True, True)
End Sub