LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsPendingDelete property
This agent exits the Sub if a database is pending deletion.

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

See Also