Delphi 7, indy, imap, This is a multi-part message in MIME

[robert83a1]

Hallo,

Ich habe ein bischen weiter gespielt mit diesem thing :

Code:

  for n:=nummsgs downto nummsgs-hanyuj2 do
    begin
      idimap41.Retrieve(n, idMessage1);
      sleep(100);
      if n>nummsgs-hanyuj then
         begin
           Memo1.Lines.Add( 'Email Nº:'+IntToStr(n)+
                           ' From :'+idMessage1.From.Text+
                           ' Subject :'+idMessage1.Subject);

             for j := IdMessage1.MessageParts.Count-1 downto 0 do
              begin
                if (IdMessage1.MessageParts[j] is TIdText) and (IdMessage1.MessageParts[j].ContentType = 'text/html; charset="us-ascii"') then
                  begin
                    Memo1.Lines.AddStrings((IdMessage1.MessageParts[j] as TIdText).Body);
                    Break;
                  end;
              end;
         end;
      idMessage1.clear;
    end;

Mein problem ist, jetzt kann ich das mime e-mail lesen, ich habe das von net runtergeladet, original var contentype = 'text/html' leider geht nicht, weis jemand wie man "einfach" die text part von MIME messages encodiert?

Robi