Domino 9 und frühere Versionen > ND6: Entwicklung

ACL User der Gruppen herausfinden

<< < (3/3)

BigWim:
@Thomas

--- Zitat ---Ja sorry, @ExpandNameList liefert die Namen aller User, die in der Gruppe inkl. aller Untergruppen vorhanden ist.
--- Ende Zitat ---

ich lass mich gern eines besseren belehren, aber in meiner DesignerHilfe (WindowsTitel "... 6.5.1") NotesClient 6.5.4 finde ich nichts über @ExpandNameList. Hatte schon auf eine undokumentierte Formel gehofft, aber auch Fehlanzeige.

@Danny
Du mußt Deine Funktion um einen Funktionsaufruf erweitern, die eine Gruppe in eine Namensliste auflöst.

Ansatzweise mußte ich so etwas auch mal lösen:


--- Code: ---Sub Click(Source As Button)
  Dim uiws As New NotesUIWorkspace
  Dim dbAdressbuch As NotesDatabase
  Dim db As NotesDatabase
  Dim doc As NotesDocument
  Dim docMailGruppe As NotesDocument
  Dim docCol As NotesDocumentCollection
  Dim sSearch As String
  Dim NameZugriff As NotesName
  Dim tmpString As String


  Set db = uiws.CurrentDatabase.Database
  Set dbAdressbuch = New NotesDatabase (db.Server, "names.nsf")
  Set doc = uiws.CurrentDocument.Document


  If dbAdressbuch Is Nothing Then
    Messagebox "Kann Adressbuch nicht öffnen",16,"keine Anzeige möglich"
    Exit Sub
  End If


  sSearch = {Type = "Group" & ListName = "} + <Name der Gruppe> + {"}
  Print "Suche nach " + sSearch


  Set docCol = dbAdressbuch.Search(sSearch, Nothing, 0)
  If docCol.Count <> 1 Then
    If docCol.Count < 1 Then
      Messagebox "MailGruppe im Adressbuch nicht gefunden",16,"Abbruch"
    Else
      Messagebox Cstr(docCol.Count) + " Dokumente im Adressbuch gefunden",16,"Abbruch"
    End If
    Exit Sub
  End If



  Set docMailGruppe = docCol.GetFirstDocument
' Namensliste aufbauen
  tmpString = ""
  Forall F1String In docMailGruppe.Members
    Set NameZugriff = New NotesName(F1String)
    tmpString = tmpString + NameZugriff.Common + Chr(13)
  End Forall
  Messagebox tmpString, 0,"Mailempfänger"
End Sub

--- Ende Code ---

Glombi:
@ExpandNameList ist undokumentiert, funktioniert aber mind. aber Version 6.

BigWim:
@thomas
Unsere Berechtigungsgruppen fangen mit einem $ bzw. mit einer # an. Damit funktioniert es (noch) nicht - werde mich morgen näher damit beschäftigen. Aber bei Gruppen, der Namen "normal" beginnen, funktioniert es bestens.

Danke für den Hinweis!

Markus

Navigation

[0] Themen-Index

[*] Vorherige Sete