Получить почту при помощи 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.

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

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