LOTUSSCRIPT/COM/OLE CLASSES
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()
See Also
NotesReplication class
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary