Hallo
gibt es eine Möglichkeit, dass "globale Adressbuch in Outlook" (einer grossen Firma)
komplett mit allen enthaltenen Feldern in eine Excel-Tabelle zu importieren ?
Freu mich auf einen Tipp
Gruß
Werner
Hallo
gibt es eine Möglichkeit, dass "globale Adressbuch in Outlook" (einer grossen Firma)
komplett mit allen enthaltenen Feldern in eine Excel-Tabelle zu importieren ?
Freu mich auf einen Tipp
Gruß
Werner
Sub Global_AdressList()
Dim GAL As AddressList
Set GAL = GetNamespace("MAPI").GetGlobalAddressList
Debug.Print
For i = 1 To GAL.AddressEntries.Count
If GAL.AddressEntries.Item(i).AddressEntryUserType = 0 Then
Debug.Print GAL.AddressEntries.Item(i).Name
End If
Next i
End Sub
mfg