Private Sub Adressen()
Dim Outl As Outlook.Application
Dim NamensListe As Outlook.AddressList
Dim Eintrag As Outlook.AddressEntry
Dim Zähler As Integer
Dim ComboEintrag As Integer
Set Outl = CreateObject("Outlook.Application")
Set NamensListe = Outl.Session.AddressLists("Globales Adressbuch")
For Each Eintrag In NamensListe.AddressEntries
Zähler = Zähler + 1
Cells(Zähler, 1) = Eintrag.Name
Next Eintrag
Set Outl = Nothing
For ComboEintrag = 1 To Sheets(1).Cells.SpecialCells(xlLastCell).Row
Sheets(1).ComboBox1.AddItem Cells(ComboEintrag, 1)
Next ComboEintrag
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen