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