Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Получить почту при помощи IdPOP31 (indy) [D7, 2000]

XTD © (2006-08-18 16:23:00)
Нужно забрать письмо из сервера, отделить 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:53:00) [1]
так код же уже есть! или он чего-то не доделывает? чего?

XTD (2006-08-18 16:28:00) [2]
Нужно забрать письмо из сервера, отделить tidattachment и сохранить в указанное место а текст, заголовок, от кого, дата в Memo1.

umbra (2006-08-18 16:27:00) [3]

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

за что?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »