Mail herunterladen mit IdPOP31 Problem mit dem Text

[Alterauge]

Hallo,
leider wird der Text nicht übermittelt (Memo3) der Rest geht)!

Delphi-Quellcode:

procedure TForm1.AdvGlowButton1Click(Sender: TObject);
var
 intIndex : Integer;
 TIdText : Integer;
 i, MsgAnz: Integer;
begin
 IdPOP31.Host :=' ';
 IdPOP31.Port :=  110;
 IdPOP31.Username :=' ';
 IdPOP31.Password := ' ';
 IdPOP31.Connect;
  if IdPop31.Connected then
   begin
    MsgAnz := IdPOP31.CheckMessages;
      for i:= 1 to MsgAnz do
       begin
         Idpop31.RetrieveHeader(i, IdMessage1);
         Memo1.Lines.Add('Betreff:' + IdMessage1.Subject);
         Memo2.Lines.Add('Datum:'  + DateToStr(IdMessage1.Date));
         Memo3.Lines.Add(idMessage1.Body.GetText);                // hier ist das Problem ! Es wird kein Text übermittelt
         IdMessage1.Clear;
         IdPOP31.Delete(1);
         Memo1.Clear;
         Memo2.Clear;
       end;
   end;
   IdPOP31.Disconnect;
end;

[sx2008]

Ha! Da ist er wieder, der berühmt berüchtigte Tomaten-auf-den-Augen-Effekt.
Idpop31.RetrieveHeader(i, IdMessage1); - RetrieveHeader, wirklich seltsam dass der Body der EMail nicht runtergeladen wird.

[Luckie]

Warum fügst du Betreff und Datum in die Memos eins und zwei ein und löscht deren Inhalt gleich wieder innerhalb der Schleife?

Delphi-Quellcode:

Memo1.Lines.Add('Betreff:' + IdMessage1.Subject);
Memo2.Lines.Add('Datum:'  + DateToStr(IdMessage1.Date));
// ...
Memo1.Clear;
Memo2.Clear;

[Gerd01]

idPOP31.Retrieve(i, idMessage1) anstatt Idpop31.RetrieveHeader(i, IdMessage1)
ist hier richtig.

Bitte beachte auch, dass die Mail aus mehreren Teilen bestehen kann.

siehe IdMessage1.Messageparts

[Alterauge]

Hallo,

habe es jetzt auf idPOP31.Retrieve(i, idMessage1)geändert.
Es kommt leiderr immer noch kein Text an?

Gruß

[Alterauge]

Was ist den hier noch falsch?

Delphi-Quellcode:

  if IdPop31.Connected then
   begin
    MsgAnz := IdPOP31.CheckMessages;
      for i:= 1 to MsgAnz do
       begin
         Memo3.Lines.Add(TIdText(IdMessage1.MessageParts.Items[intIndex]).Body;

[sx2008]

Die Schleifenvariable i ist nicht identisch mit der Indexvariable intIndex bzw. die Variable intIndex wurde nicht gesetzt.
Also doch: http://img97.imageshack.us/img97/649...ufdenaugen.jpg