Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Outlook Adressbuch

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

Betreff
Datum
Anwender
Anzeige
AW: Outlook Adressbuch
14.08.2003 18: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 07:21:03
Frederik Fuhrmann
Super, danke!
Gruß
Frederik

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige