pop3abfrage + progressbar -> fehler

[Sharky]

Hai heribert,

ich glaube hier benutzt Du die falsche "Schleifen-Variable":

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
.
.
for intIndex := 1 to FMsgCount do begin
  IdPOP31.Retrieve(intIndex, IdMessage1);
  for intIndex2 := 0 to Pred(IdMessage1.MessageParts.Count) do begin
   if (IdMessage1.MessageParts.Items[intIndex2] is TIdAttachment) then begin
      li := ListView1.Items.Add;
      li.Caption :=
        TIdAttachment(IdMessage1.MessageParts.Items[[b]intIndex[/b]]).Filename;
                                                    ^^^^^^^^
   end;
  end;
end;
end;

Da müsste meine ich intIndex2 stehen.