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 プロパティ

用語集