Gibt es sowas auch in @Funktionen?
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim rolles As String
Dim arrRoles() As String
Dim idx As Integer
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
Forall r In acl.Roles
Redim Preserve arrRoles(idx)
arrRoles(idx) = r
idx = idx + 1
End Forall
Zugriffliste_L = arroles
Call workspace.ViewRefresh@Bernhard: Bei deinem Script blieb das Feld Zugriffliste_L leer.
geht natürlich FieldSetText nicht - das erwartet ja einen String.
Also das ist für mich zu kompliziert. Besser so:
Sub Postopen(Source As Notesuidocument)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set acl = db.ACL
Set doc = Source.Document
doc.ACLRoles = acl.Roles
End Sub
Das Fed "Zugriffliste_L" muss dann eine Dialogliste mit einer Formel als Auswahl haben. Als Formel wird dann lediglich
ACLRoles
eingetragen.
ACLRoles muss ein Textfeld mit Mehrfachwerten sein.
Andreas