Office: Outlook Kontakte in Excel

Hallo!

So es gibt ja nun im Outlook die schöne Option Datei->Exportieren->In Datei Exportieren->Microsoft Excel 97-2003-> und dann gewünschten Dateinamen....

Dann habe ich in Excel alle Kontake schön in Spalten und Zeilen stehen.

Jetzt die Frage kann ich das irgendwie automatisieren? Also das excel automatisch Outlook ansteuert und sich die Kontakt daten zieht, damit die Liste immer aktuell ist?

Danke schonmal

Gruß

 

Hallo!

Ich habe Outlook zwar gar nicht auf dem Rechner und daher kann ich auch nichts testen, aber in einem Buch habe ich dieses Makro gefunden:

Code:

Sub KontakteVonOutlook()
Dim Verz As Object, i%, objItem As Object, olMAPI As New Outlook.Application
Sheets.Add
ActiveSheet.Name = "Kontaktdaten"
Range("A1").Select
Set Verz = olMAPI.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
For i = 1 To Verz.Items.Count
Set objItem = Verz.Items(i)
With objItem
ActiveCell.Value = .FirstName
ActiveCell.Offset(0, 1).Value = .LastName
ActiveCell.Offset(0, 2).Value = .BusinessAddressStreet
ActiveCell.Offset(0, 3).Value = .BusinessAddressPostalCode
ActiveCell.Offset(0, 4).Value = .BusinessAddressCity
ActiveCell.Offset(0, 5).Value = .BusinessAddressCountry
ActiveCell.Offset(0, 6).Value = .BusinessAddressState
ActiveCell.Offset(0, 7).Value = .Email1Address
End With
ActiveCell.Offset(1, 0).Select
Next i
Columns("A:H").AutoFit
Set objItem = Nothing
Set olMAPI = Nothing
End Sub

Ich hoffe, dass es funktioniert, denn viele Makros dieses Buchs sind leider fehlerhaft...

 

Hm kommt so ne Fehlermeldung an was könnte das liegen?

 

Hallo!

Dann fehlt vielleicht der Verweis auf die entsprechende Bibliothek.
Wähle mal im VBE
Menü Extras > Verweise
und suche dort nach "Microsoft Outlook blablabla Object Library" und setze dort ein Häkchen.

10.0 entspricht Outlook 2002
11.0 entspricht Outlook 2003
12.0 entspricht Outlook 2007

 

Top jetzt gehts!

Kommt nur immer von Outlook noch so ne blöde Meldung das etwas auf die Kontaktdaten Zugreift und so aber das Post ich mal ins Outlook Forum danke!!

Gruß