Delphi-Quellcode:
tPopMail.Connect(5000);
iMax := tPopMail.CheckMessages;
for i := 1 to iMax do begin
aMsg := tIdMessage.Create(NIL);
aMsg.NoDecode := false;
tPopMail.Retrieve(i, aMsg);
aMsg.ProcessHeaders;
for iMp := 0 to aMsg.MessageParts.Count-1 do begin
if aMsg.MessageParts.Items[iMp] is tIdAttachment then begin
s := (aMsg.MessageParts.Items[iMp] as tIdAttachment).Filename;
(aMsg.MessageParts.Items[iMp] as tIdAttachment).savetofile('C:\'+s);
end;
end;
aMsg.Free;
Mit diesem Code hohle ich eine mail ab. zu testzwecken bin ich sicher das es die einzige mail im postfach ist. Das mailfach dient als Ablage, mit dem sich Kunden auf knopfdruck eine Datei ziehen können. Folgendes will ich jetzt machen:
- Es soll sichergestellt werden das bloß die mail mit dem neuesten Datum abgeholt wird.
- Der anhang ist ~1 MB groß...und dieser Zeit muß man Kunden beschäftigen, sonst werden die nervös: ein fortschrittsbalken muß her. Wie bekomm ich die benötigten Daten? (also größe des anhangs und wieviel ich runtergeladen hab)
wäre dankbar für paar denkanstöße..