par Stephane Maillard » 06 Août 2003 à 09:34
Bonjour,Je ne pense que l'on puisse déterminé directement si telle ou telle personne fait partie de tel ou tel groupe.Mais il est possible de récupérer les groupes de la LCA par le code ci-dessous et après faire une recherche sur le names.nsf dans les groupes pour savoir si l'utilisateur fait parti d'un groupe.Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim acl As NotesACL Dim entry As NotesACLEntry Set db = session.CurrentDatabase Set acl = db.ACL Set entry = acl.GetFirstEntry Do While Not entry Is Nothing If entry.IsGroup Then Messagebox entry.Name & " C'est un groupe."' Ici mettre le traitement pour la recherche dans le names.nsf Else Messagebox entry.Name & " Ce n'est pas un groupe." End If Set entry = acl.GetNextEntry(entry) Loop Call acl.SaveEnd Sub[%sig%]
Cordialement
Stéphane Maillard