probier mal das hier.
Delphi-Quellcode:
Msg.MessageParts.Count > 0 then
for ii := 0 to Pred(Msg.MessageParts.Count) do
begin
application.processmessages;
if Msg.MessageParts.Items[ii] is TIdText then
begin
// Memo1.Lines.Clear;
Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[ii]).Body);
end;
end
else begin
memo1.Lines.AddString(IdMsg.Body);
end;
in deinem Fall wird die schleife ja nicht ausgeführt, wenn Msg.MessageParts.Count = 0 ist.
Gruß
tr909