Проблема с чтением электронных писем

[vovken1997]

Всем привет!
Пишу почтовый клиент. У меня такая проблема, когда к письму прикреплено вложение, то текст письма всегда равен ничему. Вот код :

function TForm2.OpenText: string;
var
msg:integer;
begin
//Ввод необходимой информации для соединения с сервером
form1.idMessage3.Clear;
form1.idPOP31.Username:='********@mail.ru';
form1.idPOP31.Password:='********';
form1.idPOP31.Host:='pop.mail.ru';
form1.idPOP31.Connect();
if form1.idPOP31.Connected then
begin
    //Узнаём номер последнего письма
    msg:=form1.idPOP31.CheckMessages;
    //Подгружаем последнее письмо в компонент idMessage
    form1.idPOP31.Retrieve(msg,form1.idMessage3);
    //Возвращаем текст письма
    OpenText:=form1.idMessage3.Body.Text;

    //Проверяем, есть ли письма в ящике, и удаляем последнее
    if (msg>=1) and (copy(form1.IdMessage3.Body.Text,1,1)<>'n') then form1.idPOP31.Delete(msg);
    //Разрываем соединение
    form1.idPOP31.Disconnect;
end;
end;

Пожайлуста, помогите сделать так, чтоб когда отправляешь письмо с текстом и вложением, эта функция возвращала текст письма.
Заранее спасибо!

[eoln]

Аналогично предыдущей теме

uses idText
  ...
  for j :=0 to idMessage1.MessageParts.Count-1 do
    if (idMessage1.MessageParts.Items[j] is TidText) then
      showmessage(TIdText(idMessage1.MessageParts.Items[j]).Body.Text);

Получит все текстовые поля

[vovken1997]

Спасибо!!!

[vovken1997]

Eoln, я проверил, но вместо текста сообщения , я получаю html код страницы. Как можно прочитать именно текст сообщения???

[Пепел Феникса]

код какой страницы?
может сообщение отформатировано как html? не?

[eoln]

Там несколько частей может быть. Есть просто текст, вот его и используй. Если слать программно, то обычно текст, а mail.ru, например, ещё и html версию добавляет (наверное для совместимости или это просто расширенное редактирование).

Кстати, на том другом форуме (форум который нельзя называть) точно такие же ответы, только с опозданием на полдня

[vovken1997]

Спасибо eoln!!!