Das Notes Forum
Domino 9 und frühere Versionen => ND9: Entwicklung => Thema gestartet von: poldy06 am 23.03.16 - 15:58:25
-
Moin liebe Notesspezies,
ich habe einen Herrn der Gl, der seine Jungmailsenderliste voll hat. Wenn man diese durchschaut, dann sind da einige Dinge doppelt und dreifach drin und einige der geblockten Domais kann man auch global übernehmen, sodass ich die Liste entnommen und dann bereinigt habe.
Jetzt versuche ich die gekürtzte Liste in das Calenderprofil zurück zu bekommen und scheitere.
Nachdem ich dieses Script (s.u.) durchlaufen lasse, sind zwar die neuen Werte im Feld, allerdings wird es scheinbar nicht als Liste erkannt, denn klickt man danach auf "Manage Junk Mail Senders List..." dann steht da nur der Anfang der ersten Adresse drin. Außerdem scheint es nötig, das Feld mit der Formel (bei mir $FilterFormula_1) neu zu befüllen. Aber das geht garnicht. Hat jemand ne Idee dazu?
Hier das Script:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim profileliste As NotesItem
Dim liste As String
Set db = session.CurrentDatabase
Set doc = db.GetProfileDocument("calendarprofile")
Liste = "adresse1;adresse2;adresse3;adresseN;domain1;domain2;domainN"
Set profileliste = doc.replaceitemvalue("$Filter_BlockAddressList", Liste)
Call doc.computewithform(False, True)
Call doc.save(True, False)
End Sub
Vielen Dank!
-
Moin
Deine Liste ist immer noch ein String.
Da fehlt ein split...
z.B. Set ProfileListe = doc.replaceItemValue("$Filter_BlockAddressList",split(Liste,";"))
-
Moin,
vielen Dank. Mit dem Split hat es geklappt.
Nochmal das Profil und einmal die Regel aufgerufen und dann war die neue Liste drin
Gruß
Kurt