Outlook-Kontakte in Excel-Tabelle einlesen (Excel)
01.01.2011

Outlook-Kontakte in Excel-Tabelle einlesen
Versionen: Excel 2000 und 2002

Mit Outlook können Sie Ihre Kontakte komfortabel verwalten. In einigen Situationen ist notwendig, dass diese Adressen in Form einer Excel-Tabelle vorliegen, damit Sie beispielsweise eine Telefonliste erstellen können. Mit Hilfe einer kleinen VBA-Prozedur können Sie aus Excel einen Zugriff auf Ihren Kontaktordner in Outlook herstellen und alle Kontakte sauber in eine Excel-Tabelle übertragen. Dazu müssen Sie im ersten Schritt in der Entwicklungsumgebung von Excel eine zusätzliche Bibliothek einbinden:

Starten Sie Microsoft Excel.

Wechseln Sie über die Tastenkombination Alt+F11 in die Entwicklungsumgebung von Excel.

Wählen Sie aus dem Menü Extras den Befehl Verweise.

Im Listenfeld Verfügbare Verweise aktivieren Sie die Objektbibliothek "Microsoft Outlook 9.0 Object Library" (Outlook 2000). Anwender von Microsoft Outlook 2002 müssen die Objektbibliothek "Microsoft Outlook 10.0 Object Library" verwenden.

Bestätigen Sie Einstellungen mit Ok.

Fügen Sie nun ein neues Modul ein in die aktuelle Arbeitsmappe, indem Sie aus das Menü Einfügen-Modul anwählen.

Erfassen Sie danach das folgende Makro:

Sub KontakteVonOutlookNachExcel()
Dim KontaktOrdner As Object
Dim l As Long
Dim outl As New Outlook.Application

Sheets("Tabelle1").Select
Range("A1").Select
Set olcontacts = _outl.GetNamespace("MAPI")._
GetDefaultFolder(olFolderContacts)

For l = 1 To olcontacts.Items.Count
Set outobj = olcontacts.Items(l)
With outobj
ActiveCell.Value = .FirstName
ActiveCell.Offset(0, 1).Value = .LastName
ActiveCell.Offset(0, 2).Value = .BusinessAddress
ActiveCell.Offset(0, 3).Value = .BusinessTelephoneNumber
ActiveCell.Offset(0, 4).Value = .BusinessFaxNumber
ActiveCell.Offset(0, 5).Value = .Email1Address
ActiveCell.Offset(0, 5).Value = .LastName
ActiveCell.Offset(0, 6).Value = .Birthday
End With
ActiveCell.Offset(1, 0).Select
Next l

Set outobj = Nothing
Set olcontacts = Nothing
Set outl = Nothing
End Sub

Danach verlassen Sie den VBA-Editor, klicken in die linke obere Ecke der Zelle, in der die Adressliste beginnen soll und starten das Makro über das Menü Extras-Makro. Zeile für Zeile werden daraufhin Namen, Adresse, E-Mail-Adressen und der Geburtstag jedes Kontaktes ausgelesen und in die Tabelle eingetragen.

Kurz zur Funktionsweise: Das Makro erzeugt im ersten Schritt ein neues Outlook-Objekt. Damit haben Sie Zugriff auf alle Objekte, Methoden und Eigenschaften, die Ihnen Outlook zur Verfügung stellt. Danach wird die Tabelle in Excel aktiviert, in die die Kontaktdaten eingelesen werden sollen. Das Makro ermittelt daraufhin den Kontaktordner von Outlook, liest ihn Satzweise aus und überträgt die Adressen in die Excel-Tabelle. Am Ende wird dann über die Anweisung Set Variable = Nothing der Speicher für die Objektvariablen wieder freigegeben.

Öffnungszeiten
Ladengeschäft:
Montag bis Donnerstag
15:00-18:00 Uhr
Freitag
8:30:13:00 Uhr
Samstag
nach Terminvereinbarung

Wir vereinbaren auch
gerne Termine über unsere
Öffnungszeiten hinaus.

Telefon:
06723 889005

Telefax:
06723 889006

E-Mail:
info@tibe.de

Adresse:
Tibe Services
Inhaber: Tim Berlebach
Zangerstraße 22
65375 Oestrich-Winkel /
Ortsteil Hallgarten

Öffentlicher Parkplatz:
Taunusstraße/
Ecke Zangerstraße

 Preisänderungen und Irrtümer bleiben vorbehalten.  Angebot gilt solange Vorrat reicht!