Wie kann ich mit VBA (unter Access) das Globale Adressbuch vom Exchange Server abfragen (Nicht den Standard-Kontakte Order) ?
Office - Word, Excel und Co. 9.759 Themen, 41.747 Beiträge
Uli M Boa20 „Per VBA das Globale Exchange Adressbuch abfragen“
z.B. mit CDO (cdo.dll): simples Bsp. fürs Prinzip:
Dim objSession As New MAPI.Session
Dim objGAL As MAPI.AddressList
Dim objAddressEntries As MAPI.AddressEntries
Dim objAddressEntryFilter As MAPI.AddressEntryFilter ' falls benötigt
Dim objAddress As MAPI.AddressEntry
objSession.Logon ' Parameter mögl.
Set objGAL = objSession.AddressLists(1) ' bzw. Name
Set objAddressEntries = objGAL.AddressEntries
For Each objAddress In objAddressEntries
Debug.Print objAddress.Name, objAddress.DisplayType
Next objAddress
objSession.Logoff
