Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c