Clearing replication cut-off date

This method works but has a potential risk of deleting data if the function gets interrupted. Use the property "CutOffDelete" of the class "NotesReplication". When you switch from enable to disable the cutoff date in that field will also be deleted. After that use the method save(). Important: Be sure not to use the method when cutoffdelete is set to true! Otherwise this will result in loss of data!!!

Sub Postopen(Source As Notesuidatabase)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim rep As NotesReplication
	Set db = session.CurrentDatabase
	Set rep = db.ReplicationInfo
	rep.CutOffDelete = False
	Call rep.Save()
End Sub

Posted by fbrefere001 on Tuesday April 18, 2006