例: CutoffInterval property

次のスクリプトは、文書が自動的に削除されるようになるまでの日数を調べ、間隔を 90 日に設定します。

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