unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,

  IdTCPClient, IdMessageClient, IdPOP3, IdMessage,EncdDecd;

 

type

  TForm1 = class(TForm)

    IdPOP31: TIdPOP3;

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    IdMessage1: TIdMessage;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

var

  i:integer;

  mescount:integer;

  s:string;

begin

   CreateDir('c:\email');

   showmessage('Создана директория c:\email');

   idPOP31.Username:=edit1.Text;

   idPOP31.Password:=edit2.text;

   idPOP31.Host:=edit3.text;

   idPOP31.Connect();

   mescount:=idPOP31.CheckMessages;

   idPOP31.Retrieve(mescount,idMessage1);

   showmessage('в ящике - '+inttostr(mescount)+' писем');

      for i :=0 to idMessage1.MessageParts.Count-1 do

        begin

          if (IdMessage1.MessageParts.Items[i] is TIdAttachment) then

            begin

              s:= TIdAttachment(IdMessage1.MessageParts[i]).FileName;

              delete(s,1,pos('UTF-8',s)+7);  //делал под конкретную кодировку аля c mail.ru на mail.ru

               delete(s,length(s)-1,2);      //делал под конкретную кодировку аля c mail.ru на mail.ru

              s:=DecodeString(s);            //делал под конкретную кодировку аля c mail.ru на mail.ru

              showmessage('получен файл '+s);

              TIdAttachment(IdMessage1.MessageParts.Items[i]).SaveToFile('c:\email\'+s);

            end;

        end;

 idpop31.disconnect;

end;

 

end.