VBA Outlook Verteiler auslesen

[zer0core]

Hallo Leute,

ich habe eine Combobox mit mehreren Kürzeln, denen Exchange-Verteilerlisten aus dem globalen Adressbuch zugeordnet sind.

  Dim NS As NameSpace
  Dim ADREntries As AddressEntries
 
     Set NS = Application.GetNamespace("MAPI")
     Set ADREntries = NS.AddressLists.Item(1).AddressEntries
    
    MsgBox ADREntries.Item("*HV " & cboReferat)

die Messagebox gibt die gewünschte Verteilerliste aus.
Ich möchte nach dem Change-Ereignis von cboReferat eine andere Combobox jeweils mit den Mitgliedern der jeweiligen Verteilerliste befüllen.
Ich komme beim besten willen nicht weiter.

Bitte um HILFE.

 

[zer0core]

Habe endlich was gefunden:

Sub GetDGMembers(strVerteiler As String)

Dim olNS As NameSpace
Dim olAL As AddressList
Dim olEntry As AddressEntry
Dim olMember As AddressEntry
Dim lMemberCount As Long
Dim strName As String

Set olNS = Application.GetNamespace("MAPI")
Set olAL = olNS.AddressLists("Globale Adressliste")

' Name des Verteilers
Set olEntry = olAL.AddressEntries(strVerteiler)

' Anzahl der MA im Verteiler
lMemberCount = olEntry.Members.Count

' loop durch den Verteiler
Dim i As Long
For i = 1 To lMemberCount
  Set olMember = olEntry.Members.Item(i)
  strName = olMember.Name
 
  strName = Left(strName, Len(strName) - 5)
 
  cboUser.AddItem strName
Next i
cboUser.ListIndex = 0
End Sub

falls jmd bei dem selben Problem hängen sollte