Junk Sender Liste Austauschen

[poldy06]

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!

[umi]

Moin

Deine Liste ist immer noch ein String.
Da fehlt ein split...
z.B. Set ProfileListe = doc.replaceItemValue("$Filter_BlockAddressList",split(Liste,";"))

[poldy06]

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