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