Hi
Ich könnte nochmal Hilfe gebrauchen.
Code:
procedure TfrmMainWindow.ffnen1Click(Sender: TObject);
Var
anzmails: longint;
Email: TEmail;
i, j: Integer;
IdMessagePart: TIdMessagePart;
begin
//alle nötigen Parameter setzen
popmain.UserId := Konfiguration.Account;
popMain.Password := Konfiguration.Passwort;
popMain.Host := Konfiguration.POP;
//Verbindung Herstellen
popmain.Connect;
//Anzahl der Mails holen
AnzMails := popMain.CheckMessages;
//mails holen
if Anzmails > 0 then
begin
// EMail herunterladen
EMail := TEMail.Create(Application);
popMain.Retrieve(i, EMail);
// Teile der Email durchgehen
For j:=0 to EMail.MessageParts.Count do
begin
//wenn ein Teil Text ist, diesen in Email ablegen
IDmessagePart := Email.messageparts.items[0];
if IDmessagepart is Tidtext then
EMail.Body := (IdMessagePart as Tidtext).body;
end;
//zum Schluß speichern und aufräumen
EMail.Speichern('.\Posteingang');
Email.Destroy;
popMain.Delete(i);
//Verbindung trennen
popMain.Disconnect;
//StringGrid aktualisieren
Aktualisieren(trvPostfach.selected);
end;
end;
Problem wenn ich nun meine E-Mails Abrufen möchte bekomme ListenIndex überschreitet das Maximum (0).
Danke schon mal im Voraus