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 Call db.SetOption(DBOPT_SOFTDELETE, False) Else Call db.SetOption(DBOPT_SOFTDELETE, True) End If Messagebox db.GetOption(DBOPT_SOFTDELETE) ,, "Soft deletions" End Sub
See Also