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

関連項目

UndeleteExpireTime プロパティ

用語集