Using clever internet components I was able to read email has picture inserted into the body and the result is this html:
email with photo<div dir="ltr"><div><img src="cid:ii_kctxj0az0" width="192" height="192"><br><br></div></div>
Problem I need full url for this image to display in online web page so how I can do this ? answer can be in general code.
Code:
var
i: Integer;
result: string;
begin
if (clPop31.Active) then Exit;
clPop31.Server := 'mailserver.com';
clPop31.Port := 110;
clPop31.UserName := 'user@server.com';
clPop31.Password := 'xxxxxxxxxxx';
lbMessages.lines.Clear();
clPop31.Open();
try
for i := 1 to clPop31.MessageCount do begin
clPop31.Retrieve(i);
lbMessages.lines.Add(result + clMailMessage1.Subject + clMailMessage1.MessageText.text);
end;
finally
clPop31.Close();
end;
ShowMessage('Done');
end;