LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As Notesdatabase Set db = session.CurrentDatabase If db.Getoption(DBOPT_SOFTDELETE) Then Messagebox "Soft deletions enabled",, db.Title Else Messagebox "Soft deletions not enabled",, db.Title End If End Sub
See Also