例: NotesReplication class

次のスクリプトは、文書が最後に複製に含まれた日付 (CutOffDate) と、文書が自動的に削除されるまでの日数 (CutOffInterval) を表示し、その日数を 30 日に変更します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim rep As NotesReplication
Set db = session.CurrentDatabase
Set rep = db.ReplicationInfo
Messagebox rep.CutOffDate
Messagebox rep.CutOffInterval
If rep.CutOffInterval <> 30 Then
  rep.CutOffInterval = 30
End If
Call rep.Save()

次のスクリプトは、CutOffInterval プロパティが 30 日であれば、[複製の設定] ダイアログボックスの [次の日数内に変更がない文書を削除する] オプションの選択を解除します。
```
Dim session As New NotesSession
Dim db As NotesDatabase
Dim rep As NotesReplication
Set db = session.CurrentDatabase
Set rep = db.ReplicationInfo
If rep.CutOffInterval = 30 Then
  rep.CutOffDelete = False
End If
Call rep.Save()
```