POP3 Emails löschen, wenn älter als X-Tage

[sega84]

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]

RetrieveHeader?