Форум: "Начинающим";
Текущий архив: 2006.08.27;
Скачать: [xml.tar.bz2];

Вниз

Текст письма   Найти похожие ветки 

← →
Hgr   (2006-08-09 22:05) [0]

Чето не фига не пойму, не отображается текст письма!,
Memo1.Lines.Add("Текст сообщения: "+IdMessage1.Body.Text);,

если что вот весь код:

procedure TForm7.Button1Click(Sender: TObject);
begin

   IdPOP31.Connect;
   form7.Caption:=floattostr(IdPOP31.CheckMessages);
   if IdPOP31.CheckMessages=0
   then ShowMessage("В папке 0 сообщений!");
   IdMessage1.Clear;
   IdPOP31.RetrieveHeader(142,IdMessage1);
    Memo1.Lines.Add("           Адрес: "+IdMessage1.From.Address);
     Memo1.Lines.Add("           Имя: "+IdMessage1.From.Name);
     Memo1.Lines.Add("           Тема: "+IdMessage1.Subject);
     Memo1.Lines.Add("           Сервер: "+IdMessage1.MsgId);
     Memo1.Lines.Add("           Attachement Encoding: "+IdMessage1.AttachmentEncoding);
     Memo1.Lines.Add("           Charset: "+IdMessage1.CharSet);
     Memo1.Lines.Add("           Текст сообщения: "+IdMessage1.Body.Text);
     IdPOP31.Disconnect;
     end;

---

← →
Dmitrij_K   (2006-08-09 22:38) [1]

IdPOP31.RetrieveHeader - получает только заголовок

---

← →
Батыр   (2006-08-10 00:01) [2]

А как что б всё?

---

← →
Dmitrij_K   (2006-08-10 00:06) [3]

IdPOP31.Retrieve()

---

← →
Батыр   (2006-08-10 00:09) [4]

Dmitrij_K  Большое Саг Болсун

---

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

Форум: "Начинающим";
Текущий архив: 2006.08.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.04 c