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