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