Hallo, Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set MyGAddressList = myNameSpace.AddressLists("Globales Adressbuch") Set MyGEntries = MyGAddressList.AddressEntries MyGEntries sind dann die Einträge im Globalen Adressbuch. Der Client benötigt ein Exchangeprofil, damit's läuft. Das Adressbuch kannst Du dann mit ner Schleife o. ä. auslesen. Gruß Inge
|