例: UndeleteExpireTime property

以下のエージェントは、一時的削除の有効期限を 24 時間、48 時間、72 時間の間で循環させます。

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