|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как вытащить прикрепленный файл IdPOP3
Прошу, помогите пожалуйста!
Использую 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; |