次のスクリプトは文書が切り離し日より古いかどうかを調べ、値 False を True に変更します。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim rep As NotesReplication
Set db = session.CurrentDatabase
Set rep = db.ReplicationInfo
If Not rep.CutOffDelete Then
rep.CutOffDelete = True
End If
Call rep.Save()