Hallo Marabu,
die Mails sortiere ich wie folgt nach Text oder
Html-Mail:
Delphi-Quellcode:
begin
pop.Retrieve(StrToInt(headers.Selected.SubItems.Strings[2]), IdMessage1);
IdMessage1.Body.SaveToFile(ExtractFilePath(ParamStr(0))+'
temp.html');
list := TStringList.Create;
list.LoadFromFile(ExtractFilePath(ParamStr(0))+'
temp.html');
for i := 0
to list.Count-1
do
begin
if pos('
<html>',list.Text) = 0
then
begin
html := TStringList.Create;
html.Add('
<html>');
html.Add('
<body>');
html.Add('
<pre>');
html.AddStrings(list);
html.Add('
</pre>');
html.Add('
</body>');
html.Add('
</html>');
html.SaveToFile(ExtractFilePath(ParamStr(0))+'
temp.html');
html.free;
end;
end;
list.Free;
WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+'
temp.html');
end;
BEi reinen
HTML- bzw. Textmails klappt das auch ohne Probleme. Bei MIME-Mails
sieht das dann so im Webbrowser aus:
Zitat:
This is a multi-part message in MIME format.--------------040509000609040303060109 Content-Type: multipart/alternative; boundary="------------000209040805070105090501"--------------
000209040805070105090501 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 8bit Text der dargestellt werden sollte
--
http://www.stefangöppert.de <http://www.stefang%F6ppert.de>
... usw.
In der Mail steht eigentlich dann nur noch unlesbarer Text (bzw. wird so dargestellt)!?