Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   POP3 Emails löschen, wenn älter als X-Tage (https://www.delphipraxis.net/155211-pop3-emails-loeschen-wenn-aelter-als-x-tage.html)

sega84 13. Okt 2010 09:23

POP3 Emails löschen, wenn älter als X-Tage
 
Hallo zusammen,
habe momentan das kleine Problem, dass ich auf einem Pop3 Server alle Emails löschen soll, die z.B. Älter als 30 Tage sind.

Momentan gehe ich wie folgt vor:
Code:
clPOP3.MailMessage := clMailMessage1;
if ConnectPop3 then
begin
  for i := 0 to clPop3.MessageCount do
  begin
    clPop3.Retrieve(i);
    if clPop3.MailMessage.Date < IncDays(Now, -30) then
      clPOP3.Delete(i);
  end;
  DisconnectPop3;
end;
Als Komponente benutze ich die Clever Internet Suite (POP3-Komponente).

Der o.g. Code funktioniert ohne Probleme, die Emails werden komplett vom Pop3 Server gelöscht. Nur werden alle Emails heruntergeladen und das ist bei großen Emails ziemlich lästig. Besteht die Möglichkeit, sich das Email-Datum und eventuell den Betreff nur "herunterzuladen" und der Rest (Anhänge, Langtext, etc.) bleiben noch auf dem Server, um somit eine Massenverarbeitung realisieren zu können?

Vielen Dank für eure Antworten.

Sir Rufo 13. Okt 2010 09:25

AW: POP3 Emails löschen, wenn älter als X-Tage
 
RetrieveHeader?


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:49 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf