E-Mail abrufen über Pop3

[youuu]

Hi, ich teste gerade das abrufen von E-Mails.
Aber irgendwie erhalte ich immer einen leeren Body zurück, also nie den wirklichen Inhalt der E-Mails.

Woran kann das liegen? Betreff usw funktioniert.


POP3 = IdPop3
PopMessage = IdMessage

Delphi-Quellcode:

var
  MailCount: Integer; 
  i, e: Integer;
  bodytext: string;
begin
  POP3.Connect;
  if POP3.Connected then begin
    try
      MailCount := POP3.CheckMessages;
      for i := 1 to Mailcount do begin
        POP3.RetrieveHeader(i, PopMessage);
       // Showmessage(PopMessage.Subject);        // Betreff
      //  Showmessage(DateTimeToStr(PopMessage.Date)); // Datum
      //  Showmessage(PopMessage.From.Text);   // Von wem versandt 
      //  Showmessage('Ende');   // Von wem versandt
        //POP3.Delete(i);

        if PopMessage.ContentType='text/plain' then
          bodytext:=PopMessage.Body.Text;

        for e:= 0 to Pred(PopMessage.MessageParts.Count) do begin
          if PopMessage.MessageParts.Items[e] is TIdText then bodytext:=(PopMessage.MessageParts[e] as TIdText).Body.Text; 
        end;
        ShowMessage(bodytext);
        
      end;
    finally
      POP3.Disconnect;
    end;
  end;
end;