Private Sub z()
Dim objOutlook As Outlook.Application
Dim objAddressList As Outlook.AddressList
Dim objAddressEntry As Outlook.AddressEntry
Dim intCounter As Integer
Set objOutlook = CreateObject("Outlook.Application")
' objOutlook.GetNamespace
Set objAddressList = objOutlook.Session.AddressLists("Globales Adressbuch")
For Each objAddressEntry In objAddressList.AddressEntries
intCounter = intCounter + 1
Sheets(2).Cells(intCounter, 1) = objAddressEntry.Name
Sheets(2).Cells(intCounter, 2) = objAddressEntry.Address
Next objAddressEntry
Set objOutlook = Nothing
End Sub
Funktioniert. Aber ich brauche unbedingt nähere Infos zu den Adresseinträgen. Die .Address hilft mir nicht weiter. Ich brauche den "Alias", die "email" des jeweiligen Kontaktes. Im Objektkatalog zu AddressEntry. finde ich nichts passendes.
Wie frage ich diese Infos ab ?