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?