Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim rep As NotesReplication Set db = session.CurrentDatabase Set rep = db.ReplicationInfo If rep.DontSendLocalSecurityUpdates Then rep.DontSendLocalSecurityUpdates = False Print "Send local security updates" Else rep.DontSendLocalSecurityUpdates = True Print "Don't send local security updates" End If Call rep.Save() End Sub
See Also