MIME-Mails im TWebbrowser (Indy)

[Grolle]

Hi,

ich habe den Code jetzt so erweitert:

Delphi-Quellcode:

procedure TForm1.ToolButton2Click(Sender: TObject);
var
i : integer;
begin
  if headers.Selected = nil then  Exit;
  IdMessage1.Clear;
  if not pop.Connected then pop.Connect;
  try
    if pop.CheckMessages > 0 then
      begin
        pop.Retrieve(StrToInt(headers.Selected.SubItems.Strings[2]), IdMessage1);
        if IdMessage1.IsEncoded then
          IdMessage1.Body.SaveToFile(ExtractFilePath(ParamStr(0))+'temp.html')
        else
          begin
            for i := 0 to IdMessage1.MessageParts.Count-1 do
              begin
                if IdMessage1.MessageParts.Items[i] is TIdText then
                  TIdText(IdMessage1.MessageParts.Items[i]).Body.SaveToFile(ExtractFilePath(ParamStr(0))+'temp.html');
              end;
          end;
        WebBrowser1.Navigate(ExtractFilePath(ParamStr(0))+'temp.html');
      end
  finally
    pop.Disconnect;
  end;
end;

Jetzt werden die anderen Mails nicht vernünftig dargestellt?!?