Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Outlook Adressbuch

Forumthread: Outlook Adressbuch

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Outlook Adressbuch
14.08.2003 20:58:00
Mike E.
Hallo Frederik,
versuche es so:

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

Viele Grüße
Mike

Anzeige
AW: Outlook Adressbuch
18.08.2003 09:21:03
Frederik Fuhrmann
Super, danke!
Gruß
Frederik

Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18