Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.10;
Скачать: CL | DM;

Вниз

Получить почту при помощи IdPOP31 (indy)   Найти похожие ветки 

 
XTD ©   (2006-08-18 16:23) [0]

Нужно забрать письмо из сервера, отделить tidattachment и сохранить в указанное место а текст, заголовок, от кого, дата в Memo1.

Вот мой код:
procedure TForm1.PDJXPButton2Click(Sender: TObject);
var Msg: TIdMessage;
   Msg1: TIdMessage;
   intIndex: integer;
begin
IdPOP31.Port:=110;
IdPOP31.Host := "smtp.mail.ru";
IdPOP31.Username:="login@mail.ru";
IdPOP31.Password:="Pass";
IdPOP31.Connect(5000);

Msg := TIdMessage.Create(nil);
Msg1 := TIdMessage.Create(nil);

for intindex := 0 to pred(msg.messageparts.count) do
begin
 if (msg.messageparts.items[intindex] is tidattachment) then
 begin //general attachment
   tidattachment(msg.messageparts.items[intindex]).savetofile(
   tidattachment(msg.messageparts.items[intindex]).filename);
   tidattachment.create(msg1.messageparts,
   tidattachment(msg.messageparts.items[intindex]).filename);
 end
 else
 begin //body text
   if msg.messageparts.items[intindex] is tidtext then
   begin
     memo1.lines.clear;
     memo1.lines.addstrings(tidtext(msg.messageparts.items[intindex]).body);
   end
 end;
end;

IdPOP31.Disconnect;
end;

Буду очень благодарен.


 
umbra ©   (2006-08-18 16:27) [1]


> Буду очень благодарен.

за что?


 
XTD ©   (2006-08-18 16:28) [2]

Нужно забрать письмо из сервера, отделить tidattachment и сохранить в указанное место а текст, заголовок, от кого, дата в Memo1.


 
umbra ©   (2006-08-18 16:53) [3]

так код же уже есть! или он чего-то не доделывает? чего?



Страницы: 1 вся ветка

Текущий архив: 2006.09.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
2-1156229174
0lmer
2006-08-22 10:46
2006.09.10
работа с файлами в windows на лету


15-1155117731
Аноним
2006-08-09 14:02
2006.09.10
Есть ли в Windows возможность использовать несколько мышей?


15-1155482329
Crazy monkey
2006-08-13 19:18
2006.09.10
Как из mp3 файла вытащить первые 15 секунд


15-1156085949
vajo
2006-08-20 18:59
2006.09.10
Автовключение компьютера.


8-1138372576
AlexXXX
2006-01-27 17:36
2006.09.10
Сравнить два изображения