Synapse EMail embedded images

[Markus70]

Hallo,

ich verschicke über Synapse HTML-EMails.
Allerdings habe ich ein Problem mit embedded images.
Das Bild wird mitgeschickt und als Anhang angezeigt.
In der Mail selbst steht nur der leere Platzhalter.

Die imagetags aus dem RichEdit verarbeite ich hiermit:

Delphi-Quellcode:

    ContentID:=10001;
    y:= pos('<IMG',UpperCase(HTMLText));
    while y>0 do
    begin
      sContentID := IntToStr(ContentID) ;
      i:= PosEx('SRC="',UpperCase(HTMLText),y);
      if i>0 then
      begin
        x:=PosEx('"',HTMLText,i+6);
        img:=copy(HTMLText,i+5,x-i-5);
        delete(HTMLText,i+5,x-i-5);
        insert('cid:'+IntToStr(ContentID),HTMLText,i+5);
       try
         mm.AddPartHTMLBinaryFromFile(img, ScontentID, MultiPartRel);
       finally
       end;
        inc(ContentID);
      end;
      y:=PosEx('<IMG',UpperCase(HTMLText),y+1);
    end;

Any ideas?

[Olli73]

Wie sieht denn die email aus, die beim Empfänger ankommt? Daran kann man vielleicht einfacher erkennen was schief läuft, z.B. ob die Bilder richtig per "multipart/related" eingebunden sind.