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

загрузить сообщение   Найти похожие ветки 

← →
anton773 ©   (2006-03-23 19:32) [0]

Здравствуйте! прошу прощения за наивный вопрос.Пытаюсь эксперементировать с созданием почтового клиента.Догнался как загрузить заголовки и поместить их в listview. Теперь пытаюсь загрузить само сообщение. делаю так procedure TForm2.ListView1Click(Sender: TObject);
begin
IdPOP31.Retrieve(ListView1.Selected.Index+1,IdMessage1);
RxRichEdit1.Lines.Add( здесь что писать?);
end;

---

← →
anton773 ©   (2006-03-23 22:05) [1]

Удалено модератором
Примечание: Создание пустых сообщений

---

← →
Ksenom   (2006-04-03 10:56) [2]

anton773, я не спец по этому отвечу ;P но подскажу...
С темой письма просто, тебе возвращается просто текст, а вот с телом немного сложнее. Возвращаться будет тело в «формате» MIME (поищи в сети там очень просто и понятно).
Так вот, доступным языком это своего рода StringList, где в каждой строке расположена информация в порядке формата MIME. Скорее всего, тебе нужен просто текст, находящийся в теле (без разметки, картинок, форматирования и html тегов), если так то это формат text\plain. Там же, в стеле, в одной из строк будут и вложения и полное тело (с форматированием, тегами и т.д.).


Msg:=Tidmessage.Create(self);
for i:=1 to Form1.POP3.CheckMessages do
begin
 Form1.POP3.Retrieve(i,Msg);
 for j:=0 to Msg.MessageParts.Count-1 do
 begin
   Form1.Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[0]).Body);
 end;
end;


Если мне память не изменяет то text\plain можно получить так.
Но я не мастер поэтому могу ошибаться, поэксперементируй…

---

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

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



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