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

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

← →
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 возвращает заголовки сообщения!

---

Страницы: 1 вся ветка

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



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