LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase uet% = db.UndeleteExpireTime If uet% > 71 Then db.UndeleteExpireTime = 24 Else db.UndeleteExpireTime = uet% + 24 End If Messagebox db.UndeleteExpireTime,, "Soft delete expire time" End Sub
See Also