Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Don Pasquale am 04.04.05 - 15:26:54

Titel: per LS Alle Personen einer Gruppe auslesen
Beitrag von: Don Pasquale am 04.04.05 - 15:26:54

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

Titel: Re: per LS Alle Personen einer Gruppe auslesen
Beitrag von: Don Pasquale am 04.04.05 - 15:34:55

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



Erledigt.

Ciao
Don Pasquale

Titel: Re: per LS Alle Personen einer Gruppe auslesen
Beitrag von: oz am 12.09.05 - 15:08:46

Hallo Don Pasquale,

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

Vielen Dank im voraus.