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 Submfg