Kontakte in Öffentliche Ordner lesen

[timog]

Hi,

hier mal etwas VBA, vielleicht hilft es Dir ja. Denn der Export über CSV ist wegen der vielen GUIDs (EntryID etc.) nicht sonderlich praktikabel. Problem hatte ich auch schon

Code:

Dim ol As Outlook.Application 
Dim ns As Outlook.NameSpace 
Dim pub As MAPIFolder 
Dim c As Outlook.ContactItem

Set ol = CreateObject("Outlook.Application") 
Set ns = ol.GetNamespace("MAPI") 
Set pub = ns.Folders("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner").Folders("Firmenkontakte") 

MsgBox "Elemente: " & pub.Folders(1).Items.Count
MsgBox "Erster Eintrag: " & pub.Folders(1).Items(1).Subject

Wenn Du dann noch dem Objekt "c" im Beispiel oben das jeweilig aktuelle Contact Item zuweist, kannst Du bequem auf die Eigenschaften der Objekte zugreifen, z.B. mit

Delphi-Quellcode:

sFirma:= c.CompanyName             
sEmail:= c.Email1Address
sStreet:=c.BusinessAddressStreet
sPLZ:=c.BusinessAddressPostalCode
sCity:=c.BusinessAddressCity

Schau Dir ansonsten mal http://www.outlookcode.com/d/code/getfolder.htm an. Eine VBA Funktion zum Auswählen eines Folders. Ich mache es übrigens oft so, dass ich erst in VBA den Code ans laufen bekomme bevor ich ihn nach Delphi portiere. Klappt oft, aber nicht immer ohne Klimmzüge (z.B. für FOR EACH).

Viele Grüße und Erfolg

Timo