LOTUSSCRIPT/COM/OLE CLASSES
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
See Also