загрузить сообщение

← →
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 можно получить так.
Но я не мастер поэтому могу ошибаться, поэксперементируй…

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