Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
800to804
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
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Outlookkontakte in excel?

Outlookkontakte in excel?
08.09.2006 18:04:06
selo
Habe da mal eine frage an die profis
ist es mittels vba möglich das per buttondruck auf einer Exceltabelle alle Outlook kontakte auf dieses Tabellenblatt zu importieren?
wie könnte solch ein vba Makro aussehen?
gruß
selo

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Outlookkontakte in excel?
08.09.2006 18:16:34
selo
Habe eine lösung gefunden
für alle anderen die auch auf der suche sind

Sub OL2XL()
Dim objOutlook As Object
Dim objAddressList As Object
Dim objAddressEntry As Object
Dim intCounter As Integer
Dim bln As Boolean
Application.ScreenUpdating = False
bln = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Set objOutlook = CreateObject("Outlook.Application")
Set objAddressList = _
objOutlook.Session.AddressLists("Kontakte")
intCounter = 1
For Each objAddressEntry In objAddressList.AddressEntries
intCounter = intCounter + 1
If intCounter Mod 10 = 0 Then
Application.StatusBar = _
"Lese Adresse Nr. " & intCounter & " ein..."
End If
Cells(intCounter, 1) = objAddressEntry.Name
Cells(intCounter, 2) = objAddressEntry.Address
Next objAddressEntry
Set objAddressList = Nothing
Set objAddressEntry = Nothing
Set objOutlook = Nothing
Application.DisplayStatusBar = bln
Application.StatusBar = False
Application.ScreenUpdating = True
End 

Sub

Anzeige

26 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige