per LS Alle Personen einer Gruppe auslesen

[Don Pasquale]

Hi Folks,

ich versuche alle Personen einer Gruppe auszulesen,
mit nachfolgendem Code. Ich lese zwar alle Einträge
im Adressbuch aus, aber es passiert nicht das gewünschte.
im Debugger habe ich festgestellt, dass die Eigenschaft
bei isGroup bei den von mir angelegten Gruppen
auf false steht.
Es ändert nichts ob ich die Gruppen als multi-purpose oder
ACL only definiere.
Ich habe bestimmt etwas übersehen, aber was ?

Ciao
Don Pasquale


   Dim ws As New NotesUiWorkspace
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim DocA As NotesDocument
   Dim view As NotesView
   Dim acl As NotesACL
   Dim Entry As NotesACLEntry
   Dim GRUPPE As String
   Dim ok As Boolean
   
   GRUPPE = getParam("GRUPPE")
   
   Set session = New NotesSession
   Set db  = session.CurrentDatabase
   Set acl = db.ACL
   Set Entry = acl.GetFirstEntry
   
   While Not Entry Is Nothing
      If entry.IsGroup Then
         If entry.Name = GRUPPE Then
            Gosub GRUPPEAUSLESEN            
         Else
         End If
      Else

      End If   
      Set Entry = ACL.GetNextEntry( Entry )
   Wend

[Don Pasquale]

Ich musste in der ACL der DB die Gruppe auch als User Type Person Group definieren.
Aua



Erledigt.

Ciao
Don Pasquale

[oz]

Hallo Don Pasquale,

kannst Du mir bitte den Code schicken, der sich hinter GRUPPEAUSLESEN verbirgt?

Vielen Dank im voraus.