VBA Outlook Verteiler auslesen

Dabei seit
Sep. 2007
Beiträge
162
#1
Hallo Leute,

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

Code:
  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

Ensign
Ersteller dieses Themas
Dabei seit
Sep. 2007
Beiträge
162
#2
Habe endlich was gefunden:

Code:
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 ;)
 
Top