Danke dir, ich schaue mir das mal an.
ich habe es so gemacht:
Delphi-Quellcode:
if (mail.MessageParts.Count > 0) then begin
for ii := 0 to mail.MessageParts.Count - 1 do begin
//text := mail.MessageParts.I
if (mail.MessageParts.Items[ii].ClassName = 'TIdText') then begin
text := TIdText(mail.MessageParts.Items[ii]);
memoText.Lines.Add(text.Body.Text);
end;
end;
end;
Allerdings bekomme ich so, warum auch immer, nur reine Textmails angezeigt. Das kann mir doch einfach all die
html-Tags einfach niederschreiben, anstatt gar nichts zu bringen. Wieso wird der Text mancher Emails einfach nicht angezeigt?
Ich werde deine Methode gleich mal probieren.