[AIMor]

Прошу, помогите пожалуйста!

Использую indy 10.
Письма через IdPOP3 получаю нормально,
но не пойму как из этих писем вытаскивать и сохранять в отдельных файлах их вложения (архивы, файлы различных форматов).

Вот то, что сейчас есть у меня.

Код:

uses
   IdMessage,
   IdMessageParts,
   IdPOP3,
   IdAttachmentFile;

Var
   POP3 : TIdPOP3;
   M    : TIdMessage;
   R    : Integer;

begin
   POP3:=TIdPOP3.Create(Form1);
   M:=TIdMessage.Create(Form1);

   POP3.AuthType:=patUserPass;
   POP3.Host:='pop3.mail.ru';
   POP3.Username:='user';
   POP3.Password:='pass';
   POP3.Connect;
   If POP3.Connected Then R:=POP3.CheckMessages
                     Else R:=0;

   If (R>0) Then
      For I:=1 To R Do
         begin
            M.Clear;
            POP3.Retrieve(I,M2);
            M.SaveToFile('e:\qwert'+inttostr(i)+'.eml');
            POP3.Delete(I);
         end;
   POP3.Disconnect;

   POP3.Free;
   M.Free;
end;