Outlook Adressbuch

Forumthread: Outlook Adressbuch

Outlook Adressbuch

13.08.2003 12:50:37

Frederik Fuhrmann

Hat zu diesem Beitrag noch jemand eine Idee?

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Outlook Adressbuch

14.08.2003 20:58:00

Mike E.
AW: Outlook Adressbuch

18.08.2003 09:21:03

Frederik Fuhrmann

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

AW: Outlook Adressbuch

18.08.2003 09:21:03

Frederik Fuhrmann

Super, danke!
Gruß
Frederik

Forumthread: Outlook Adressbuch

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread