Текущий архив: 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.04 c
