[Gurt87]

Здравствуйте!
Есть ящик test_email_box@mail.ru
В нем 3 письма.
1-е пришло от Администрации при создании ящика
2-е отправил сам себе
3-е пришло с @gmail.com

Пытаюсь вытащить содержание этих писем с помощью TIdPOP3 и TidMessage (Indy)

Вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

<b>Письмо от администрации</b> procedure TForm1.Button1Click(Sender: TObject); begin IdPOP31.Port:=110; IdPOP31.Host:='pop3.mail.ru'; IdPOP31.Username:= 'test_email_box@mail.ru'; IdPOP31.Password:= 'qwerty'; IdPOP31.Connect; IdMessage1.Clear; IdPOP31.Retrieve(<b>1</b>,IdMessage1); Memo1.Lines.Add(IdMessage1.CharSet);    //'' Memo1.Lines.Add(IdMessage1.From.Text);  // "áÄÍÉÎÉÓÔÒÁÃÉÑ Mail.Ru" <support@corp.mail.ru> Memo1.Lines.Add(IdMessage1.Subject);    // 'äÏÂÒÏ ÐÏÖÁÌÏ×ÁÔØ ÎÁ Mail.Ru!' Memo1.Lines.Add(IdMessage1.Body.Text);  //  #$D#$A#$D#$A#$D#$A IdPOP31.Disconnect; end;   <b>Письмо сам себе</b> procedure TForm1.Button2Click(Sender: TObject); begin IdPOP31.Port:=110; IdPOP31.Host:='pop3.mail.ru'; IdPOP31.Username:= 'test_email_box@mail.ru'; IdPOP31.Password:= 'qwerty'; IdPOP31.Connect; IdMessage1.Clear; IdPOP31.Retrieve(<b>2</b>,IdMessage1); Memo1.Lines.Add(IdMessage1.CharSet);     // 'KOI8-R' Memo1.Lines.Add((IdMessage1.From.Text)); // 'Test Test <test_email_box@mail.ru>' Memo1.Lines.Add(IdMessage1.Subject);     // '=?koi8-r?Q?=F4=C5=CD=C1_=D0=C9=D3=D8=CD=C1?=' Memo1.Lines.Add(IdMessage1.Body.Text);   //'ôÅËÓÔ ÐÉÓØÍÁ'#$D#$A#$D#$A#$D#$A IdPOP31.Disconnect; end;   <b>Письмо с gmail</b> procedure TForm1.Button3Click(Sender: TObject); begin IdPOP31.Port:=110; IdPOP31.Host:='pop3.mail.ru'; IdPOP31.Username:= 'test_email_box@mail.ru'; IdPOP31.Password:= 'qwerty'; IdPOP31.Connect; IdMessage1.Clear; IdPOP31.Retrieve(<b>3</b>,IdMessage1); Memo1.Lines.Add(IdMessage1.CharSet);    //'' Memo1.Lines.Add(IdMessage1.From.Text);  //'=?KOI8-R?B?5dfHxc7JyiDn1dLUz9fPyg==?= <egoist.gt@gmail.com>' Memo1.Lines.Add(IdMessage1.Subject);     //'=?KOI8-R?B?9MXNwSDQydPYzcE=?=' Memo1.Lines.Add(IdMessage1.Body.Text);  // #$D#$A IdPOP31.Disconnect; end;

Кодировки - другой разговор. Вопрос в другом.

Получается что самое "удачное" письмо - 2-е, потому что IdMessage1 получил все потребные свойства (CharSet,From,Subject,Body)

Почему же в 1-м и 3-м письме отсутствуют CharSet и Body,????
Как тогда их вытаскивать с IdMessage1? Может какоето другое свойство (IdMessage1.*****)?
Или это просто глюк IdMessage1 ???