[AIMor]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

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;