Mail Eklerini İndirme

[ferhatganem]

Merhabalar;
Bana gönderilen ve her birinde birkaç dosya eki bulunabilen yüzlerce mail ile tek tek ilgilenmek zor geldiği için,
mail eklerini indirme ile ilgili Delphi ve/veya PHP ile yazılmış bir örnek aradım. Şu adresteki güzel gibi geldi:
http://kod5.org/php-ile-e-posta-eklerini-indirin/

Ama, burdaki ek dosyayı bir türlü indiremedim. ELinde bu veya buna benzer örnek uygulama ya da önerisi olan var mı?
Teşekkür ediyorum...

[delphiman]

uses
  IdSMTP, IdMessage, IdSSL, IdSSLOpenSSL, IdPOP3, SysUtils;

procedure DownloadEmailAttachments;
var
 POP3: TIdPOP3;
 Msg: TIdMessage;
 i: Integer;
begin
 POP3 := TIdPOP3.Create(nil);
 try
   POP3.Host := 'your.pop3.server';
   POP3.Username := 'your_email@example.com';
   POP3.Password := 'your_password';
   POP3.Connect;

   for i := 1 to POP3.CheckMessages do
   begin
     Msg := TIdMessage.Create(nil);
     try
       POP3.Retrieve(i, Msg);
       if Msg.MessageParts.Count > 0 then
       begin
         // Loop through each attachment
         for var j := 0 to Msg.MessageParts.Count - 1 do
         begin
           if Msg.MessageParts[j] is TIdAttachmentFile then
           begin
             TIdAttachmentFile(Msg.MessageParts[j]).SaveToFile('C:\path\to\save\' + TIdAttachmentFile(Msg.MessageParts[j]).FileName);
           end;
         end;
       end;
     finally
       Msg.Free;
     end;
   end;
 finally
   POP3.Disconnect;
   POP3.Free;
 end;
end;