Outlook HTML-Mail mit Bildern

[vsti]

Moin moin,

also, mit Hilfe von den Indy Compos und

Delphi-Quellcode:

  Att:=TIDAttachment.Create(IdMessage1.MessageParts,'c:\logo.gif');
  Att.ContentDisposition := 'attachment';
  Att.ExtraHeaders.Values['content-id']:=ExtractFileName('c:\logo.gif');

kann man ja in eine Mail ein Bild integrieren und in der Mail dann mit

Code:

  <DIV><IMG src=3D"cid:logo.gif"></DIV>

in z.B. Outlook als HTML-Mail anzeigen lassen. Alles super soweit.

Wie kann ich aber selbiges an Outlook übergeben bevor ich die Mail sende? Damit auch in Outlook dokumentiert wird was ich gesendet habe.

Delphi-Quellcode:

const 
  olMailItem = 0; 
var 
  Outlook: OleVariant; 
  vMailItem: variant; 
  SList: TStringList;
begin
  try
    Outlook := GetActiveOleObject('outlook.Application');
  except
    Outlook := CreateOleObject('outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add(Recipient);
  vMailItem.Subject := Subject;

  SList :=TStringList.Create;
  SList.LoadFromFile(HTMLFile);
  vMailItem.HTMLBody := SList.Text;

  vMailItem.Attachments.Add('c:\logo.gif');
  vMailItem.Display;

funktioniert zwar, aber wie übergebe ich die "content-id" wie bei Indy oben, damit das Bild in der Mail dargestellt werden kann und dabei nicht das Bild auf der lokalen Festplatte gesucht wird?

Verständlich?

Recherchen im Inet und Foren waren bis jetzt erfolglos...