Hallo Gemeinde
Ich versuche folgendes mittels einem kleinen Script zu automatisieren:
Ich habe ein Adressbuch. In diesem Adressbuch gibt es lediglich sehr viele Gruppen. In diesen Gruppen sind verschiedene Mitglieder enthalten.
Ziel: Nach eingabe eines FQDN-Namen z.B. Hans Wurst/NOTES/DE wird der Name aus ALLEN Gruppen gelöscht bzw. ist nirgens mehr Gruppenmitglied
Ich bin in LotusScript ein blutiger Anfänger und habe zuvor alles nur mit Formelsprache erledigt.
Soviel habe ich schonmal hinnbekommen:
Sub Click(Source As Button)
Dim person As String
person = Inputbox ("FQDN der Person eingeben", "Benutzer aus Adressbuchgruppen entfernen")
Dim Db As New notesdatabase("","adressbuchdatei.nsf")
Dim v As NotesView
Dim doc As NotesDocument
Set v = db.GetView("Gruppen")
Set doc = v.GetFirstDocument
While Not(doc Is Nothing)
// ??????
doc.Save True, True
Set doc = v.GetNextDocument(doc)
Wend
antwort = Messagebox("Fertig")
End Sub
Alles anzeigen
ich weiß soviel, dass das Feld im Adressbuch den namen "Members" hat.
Vom theoretischen her muss ich ja den Inhalt des Feldes "Members" mit dem eingegebenen String vergleichen und diese Zeichenfolge dann aus dem Namensfeld löschen.
Ich hab aber bisher keine Ahnung wie das zu realisieren ist.
Kann mir jemand helfen?
Das wäre sehr nett!
Grüße