получени почты

← →
gidd (2006-03-13 11:55) [0]

Нашел в инете пример получения почты. Данные проходят: кто отправил, вряме и тд видно, но сам текст письма не приходит.

//получение почты
IdPOP3.Host:=Options.pop;
IdPOP3.Username:=Options.Username;
IdPOP3.Password:=Options.Pass;

IdPOP3.Connect(1000);
if IdPOP3.CheckMessages=0
then ShowMessage("Писем нет");

reMail.Lines.Add("------------------------------------");
reMail.Lines.Add("Почтовый ящик (POP): test_r@mail.tu ");
reMail.Lines.Add("------------------------------------");
for i:=1 to IdPOP3.CheckMessages do
begin
IdMessage1.Clear;
IdPOP3.RetrieveHeader(i,IdMessage1);
reMail.Lines.Add(" "+IntToStr(i)+": От: "+DecodeStr(IdMessage1.From.Text));
reMail.Lines.Add(" Адрес: "+DecodeStr(IdMessage1.From.Address));
reMail.Lines.Add(" Имя: "+DecodeStr(IdMessage1.From.Name));
reMail.Lines.Add(" Тема: "+DecodeStr(IdMessage1.Subject));
reMail.Lines.Add(" Сервер: "+DecodeStr(IdMessage1.MsgId));
reMail.Lines.Add(" Attachement Encoding: "+DecodeStr(IdMessage1.AttachmentEncoding));
reMail.Lines.Add(" Charset: "+DecodeStr(IdMessage1.CharSet));
reMail.Lines.Add(" Текст сообщения: "+DecodeStr(IdMessage1.Body.Text));
reMail.Lines.Add(" ");
end;
IdPOP3.Disconnect;

после этого "Текст сообщения" всегда пустой

← →
Плохиш © (2006-03-13 12:01) [1]

> IdPOP3.RetrieveHeader(i,IdMessage1);

Ни на какие мысли не наводит? Может справку по TidPop3 почитаешь всё-таки?

← →
gidd (2006-03-13 12:05) [2]

У меня плохой англиский. Спасиб что помог.

← →
dabreezy (2006-03-13 12:43) [3]

Нужно использовать вот это:
function Retrieve(const MsgNum: Integer; AMsg: TIdMessage): Boolean;
Функция RetrieveHeader возвращает заголовки сообщения!

получени почты Найти похожие ветки