Examples: NotesReplication class
- 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()
- 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()
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.