LOTUSSCRIPT/COM/OLE CLASSES

Examples: UndeleteExpireTime property
This agent cycles the expiration time for soft deletions from 24 to 48 to 72 hours.

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