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?