Hallo,

mein Problem beim Auslesen der Kontaktdaten sind die Attachments, bzw. die eingebetteten Bilder.

In der Attachments-Collection sind die Files wie auch die Bilder enthalten. Beim Zugriff auf die Property "myAtt.FileName" erhalte ich den folgenden Fehler(nur bei den eingebetteten Bildern - das eingebettete txt funktioniert):
Outlook kann diese Aktion nicht für diesen Analgetyp ausführen.

Versuche ich das Bild über "myAtt.SaveAsFile" zu speichern, wird das File mit einer entsprechenden Größe gespeichert, jedoch kann ich es nicht öffnen(beim dem eingebetteten txt funktioniert es).

Eine Alternative wäre den HTML-Kommentar inkl. Bilder zu verwenden. Hier habe ich nur die Property myContact.Body gefunden welche den Plaintext(natürlich ohne Bild) enthält.

Ich hoffe Ihr könnt mir sagen wie ich zu den Bildern bzw. zu dem Kommentar komme.

Wie sagt man bei Star-Wars "Ihr seid meine letzte Hoffnung"

Ich verwende Outlook 2003
Anbei:
VB6 Test-Programm
Outlook-MSG-File welches den Demo-Kontakt enthält

LG und vielen Dank
Martin

Hier das Test-Programm:

Dim nspMapi As Outlook.NameSpace
Dim folMapi As Outlook.MAPIFolder
Dim Contacts As Outlook.Items
Dim myContact As Outlook.ContactItem

Set nspMapi = Application.GetNamespace("MAPI")
Set folMapi = nspMapi.GetDefaultFolder(olFolderContacts)
Set Contacts = folMapi.Items

Dim myAtt As Outlook.Attachment

For Each myContact In Contacts
Debug.Print myContact.LastName
Debug.Print myContact.FirstName

For Each myAtt In myContact.Attachments
Debug.Print myAtt.FileName

Next

Next