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()