Прошу, помогите пожалуйста!
Использую 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;