TIDIMAP4 - Mail Body als reinen text bekommen ?

[Assertor]

Hi moelski,

Das mit dem Body ist korrekt. Die Texte sind über die MessageParts verstreut:

Du mußt durch alle Text-Elemente in MessageParts iterieren:

Delphi-Quellcode:

var
  i: Integer;
begin
  ...
  for i := IdMessage.MessageParts.Count - 1 downto 0 do
  begin
    if (IdMessage.MessageParts[i] is TIdText) and
       (IdMessage.MessageParts[i].ContentType = 'text/html') then
    begin   
      Memo1.Lines.AddString((IdMessage.MessageParts[i] as TIdText).Body);
    end;
  end;
end;

Gruß,

Assertor