Ich hatte bisher das Leserfeld nicht in der Maske gespeichert, sondern lasse dies mittels Button erstellen.
REM *** Auswahl der zusätzlichen Leser aus Adressbuch ***
If Not ws.DialogBox( "DialogLeser" , False , False, False, False, False, False, "Einstellung Zugriffsschutz für Dokument", doc ) Then
Exit Sub
End If
REM *** Auslesen der zusätzlichen Leser ***
Dim ergebnis As String
Dim i As Integer
For i = 0 To Ubound(doc.zusLeser) ' Feld aus DialogBox
ergebnis = doc.zusLeser(i) & "," & ergebnis
Next
REM *** Ergänzung der generellen Leser ***
ergebnis = ergebnis & profildoc.generelleLeser(0)
i = 0
Dim LeserNeu() As String
Forall elements In SY_XExplode(ergebnis,",")
Redim Preserve LeserNeu(i)
LeserNeu(i) = elements
i = i +1
End Forall
REM *** Leserfeld setzen ***
Dim LeserItem As NotesItem
Set LeserItem = New NotesItem( doc, "Leser", LeserNeu, READERS )
LeserItem.IsReaders= True
Nachdem ich nun direkt in der Maske das Feld "Leser" (Typ: Leser, Bearbeitbar, ohne Vorgabewert) angelegt habe, wird nach Ausführen des Button nur noch ein Leerstring im Feld "Leser" angezeigt.
Das Problem liegt wohl schon in der Dialogbox. Dort wird das Feld "zusLeser" gefüllt, im Debugger zeigt es mir den Inhalt schon in der Abbreviate Form an.
Kann ich die von Dir gepostete Formel bereits in der Dialogbox anwenden?
Ich weiß nicht, wo ich da ansetzen muss ...
Bille