Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.04.2010, 08:28   #1
Angel86rus
Пользователь
 
Аватар для Angel86rus
 
Регистрация: 03.10.2007
Сообщений: 42
Счастье Получение почты чере pop3

Всем форумчанам привет.!!!
Подскажите каким образом можно получить вложенный файл на почте. через indy на получение сообщения работает. вот код:
Код:
 

begin
IdPOP31.Host:='pop.mail.ru';
IdPOP31.Port:=110;
IdPOP31.Username:='user@mail.ru';
IdPOP31.Password:='12345';
IdMessage1.Clear;
IdPOP31.Connect;
mmo1.Clear;
IdPOP31.Retrieve(1,IdMessage1);
mmo1.Lines.AddStrings(IdMessage1.Body);
lbl1.Caption:=IdMessage1.From.Text;
lbl2.Caption:=IdMessage1.Recipients.EMailAddresses;
lbl3.Caption:=IdMessage1.CCList.EMailAddresses;
lbl4.Caption:=IdMessage1.Subject;
lbl5.Caption:=FormatDateTime('dd mmm yyyy hh:mm:ss',IdMessage1.Date);
lbl6.Caption:=IdMessage1.ReceiptRecipient.Text;
lbl7.Caption:=IdMessage1.Organization;
IdPOP31.Delete(1);
IdPOP31.Disconnect;
end;
Angel86rus вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
POP3 получение количества новых писем KoBRaAndrey Работа с сетью в Delphi 0 11.12.2009 18:01
Получение почты с GMAIL KoBRaAndrey Работа с сетью в Delphi 11 06.12.2009 23:33
Получение почты с Exchange Server Demon13 Работа с сетью в Delphi 0 09.01.2008 13:55
Получение почты NoName_emaNoN Win Api 0 29.11.2007 20:47
Microsoft Office Outlook : получение почты на несколько компов kipish Софт 0 30.10.2006 19:23