Hallo!
Ich hätte da mal wieder ein kleines Problemchen.
Und zwar versuche ich, per Script die Replizierung des persönlichen Adressbuches des aktuellen Users auszuschalten.
Ich habe dazu ein Script gebastelt, dass ich per Mail mit Schaltfläche verschicken wollte.
Sub Click(Source As Button)
Dim db As New NotesDatabase ("","names.nsf")
Dim rep As NotesReplication
Set rep = db.ReplicationInfo
Msgbox rep.Disabled
If Not rep.Disabled Then
rep.Disabled = True
End If
Call rep.Save()
End Sub
Soweit ich erkennen kann macht das Script auch was es soll. (Ist ja auch an ein Beispiel aus der Notes-Hilfe angelehnt.) Nur zeigt es keine Auswirkungen.
Soll heißen: Der entsprechende Parameter im Objekt NotesReplication wird wie gewünscht geändert. Das kann man auch kontrollieren, wenn man das Script mehrfach aufruft. Ich habe das Script auch mal in einen Agenten gesetzt und den Debug-Modus verwendet. Da sieht man auch das der Parameter geändert und gespeichert wird.
In der Replizier-Übersicht im Notes Client bleibt der Haken bei "aktiviert" aber drin. Auch ein Blick in die Serverkonsole zeigt, dass weiterhin repliziert wird.
Hat jemand eine Idee, warum sich der Parameter nicht auswirkt?
Und wie ich die Replizierung abschalten kann. Vielleicht gibt's ja auch noch eine bessere Idee, als jedem User eine Mail zu schicken.
Vielen Dank schon mal!
Oli