Delphi-Quellcode:
Try
begin
//Nachrichten werden "gelesen"
for i:=1
to idPOP31.CheckMessages
do
begin
idPOP31.Retrieve(i, IdMessage1);
//Betreff
LogMem(IdMessage1.Subject);
Speicherortteam := IdMessage1.Subject;
LogMem('
Diese E-mail wird heruntergeladen');
for intIndex := 0
to Pred(IdMessage1.MessageParts.Count)
do
begin
//Wenn E-Mail mit Anhang
if (IdMessage1.MessageParts.Items[intIndex]
is TIdAttachment)
then
begin
Dateiname := TIdAttachment(IdMessage1.MessageParts.Items[intIndex]).Filename;
LogMem('
Datei '+Speicherort+Dateiname+'
wurde gespeichert');
TIdAttachment(IdMessage1.MessageParts.Items[intIndex]).SaveToFile(Speicherort+Dateiname);
LogMem('
Datei '+Speicherort+Dateiname+'
wird entpackt');
end;
// END IF
end;
// END IF
end;
// END I
idpop31.Delete(i);
IdMessage1.Clear;
//Wichtig, sonst bleibt der immer an eine E-mail hängen!
LogMem('
Nächste Nachricht');
end;
// END I ( EMAILS)
idpop31.disconnect;
LogMem('
Verbindung zum Pop3 wurde getrennt!');
end;
// Try
except
on e:
exception do
begin
idPOP31.Disconnect;
beep;
LogMem('
______________________________________');
LogMem(Trim('
Fehler: '+e.
Message));
LogMem('
______________________________________');
Continue;
end;
end;
//END TRY
Die Fehler wird nicht unterdrückt sonder als MELDUNG angezeigt. warum?