Kontakte in Outlook mit Foto

[Oswald Mair]

Guten morgen,
hoffe ich bin hier richtig,
brauche eure Hilfe.

Ich übertrage Kundenkontakte von einen Programm ins Outlook.
Funktioniert wunderbar

Jetzt muss ich zusätzlich ein Foto mit übertragen,
und das bekomme das einfach nicht hin.

ich mache dies wie folgt:

var outlook, NameSpace, Contacts, Contact : OleVariant;

begin
outlook := CreateOleObject('Outlook.Application');
NameSpace := outlook.GetNameSpace('MAPI');
NameSpace.Logon('', '', False, False);
Contacts := NameSpace.GetDefaultFolder(olFolderContacts);*

// Hier suche ich dann den richtigen Eitrag oder einen neuen
Contact := Contacts.Items.Item(nIndex);

// Dann schreibe ich die Daten
Contact.CustomerID := cID;
Contact.FirstName := cVorname;
Contact.LastName := cNachname;
Contact.CompanyName := cFirmenname;usw ...

dies funktioniert auch wunderbar, jetzt möchte ich zusätzlich auch noch ein Foto übertragen, und das wollte ich wie folgt lösen, aber ich erhalte ständig die Fehlermeldung "Ungültiger Variant"

Contact.AddPicture( 'c:\foto.jpg' );

Kann mir jemand einen Tipp geben,
ich arbeite mit Delphi7

danke
Oswald