Vielen Dank,
ContentType war der richtige Tipp. Dieser Code ergibt jetzt den body:
Delphi-Quellcode:
for I := 0
to IdMessage.MessageParts.Count - 1
do
begin
if IdMessage.MessageParts.Items[I]
is IdText.TidText
then
begin
if IdText.TidText(IdMessage.MessageParts.Items[I]).ContentType = '
text/html'
then
Memo2.Lines.Add(IdText.TidText(IdMessage.MessageParts.Items[I]).Body.Text);
end;
end;