Examples: NotesReplication class

  1. This script displays the date after which documents will not be included in replication (CutOffDate) and the number of days after which documents are automatically deleted (CutOffInterval) and then changes the interval to 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()
  2. This script deselects "Remove documents not modified in the last: __ days" in the replication settings if the CutOffInterval property is 30 days.
    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()