Hallo alle zusammen,
Ich lade mit diesem Code den Inhalt einer E-Mail von einem
Pop3 Server:
Delphi-Quellcode:
//mail laden
pop3.Retrieve(mailindex, mailinfo);
//details eintragen
fo_browser.edAbsender.Text:=mailinfo.From.Text;
fo_browser.edDatum.Text:=FormatDateTime('
dd mmm yyyy hh:mm:ss', mailinfo.Date);
fo_browser.edBetreff.Text:=mailinfo.Subject;
//body eintragen
for intIndex := 0
to Pred(mailinfo.MessageParts.Count)
do begin
if (mailinfo.MessageParts.Items[intIndex]
is TIdAttachment)
then begin
fo_browser.mailtext.Lines.Add(TIdAttachment(mailinfo.MessageParts.Items[intIndex]).Filename);
end
else begin
if mailinfo.MessageParts.Items[intIndex]
is TIdText
then begin
fo_browser.mailtext.Lines.AddStrings(TIdText(mailinfo.MessageParts.Items[intIndex]).Body);
end
end;
end;
Das funktioniert auch soweit, allerdings werden
HTML E-Mails natürlich nicht richtig dargestellt. Wie könnte ich das hinbekommen? Gibt es dafür vielleicht eine Komponente oder so?
Schonmal danke...