Текущий архив: 2006.08.27;
Скачать: CL | DM;
Вниз
Текст письма Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.048 c
