Guten Tag,

ich habe es schon in vielen Programmen erlebt das diese die möglichkeit geben die Outlook Kontakte auszulesen.

Ich habe ein Programm für Bauunternehmen geshrieben für SubAnfragen, nun kamm eine Firma zu mir und Frage nach ob es nicht auch ein Update dafür gebenen könnte aus dem Outlook die Kontakte zu Importieren.

Da ich aber bis jetzt noch nicht wei wie ich an die Daten ran komme, möchte ich diese Frage hier stellen und hoffe das mir jemand weiter helfen kann.

mfg

Hallo,

so kannst du sämtliche Infos auslesen.

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim objOut As New Outlook.Application         Dim myFolder As Outlook.MAPIFolder = _             objOut.GetNamespace("MAPI").GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)           Dim myContactItem As Outlook.ContactItem         Dim i As Integer           For i = 1 To myFolder.Items.Count             If myFolder.Items.Item(i).MessageClass = "IPM.Contact" Then                 myContactItem = myFolder.Items.Item(i)                   Debug.Write(myContactItem.LastNameAndFirstName)             End If         Next

Jens