[Gurt87]

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

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

Вот код:

Код:

Письмо от администрации
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(1,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;

Письмо сам себе
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(2,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;

Письмо с gmail
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(3,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 ???