Как получить первое сообщение с почты?

Пробую так:

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
  msg: TIdMessage;
begin
//vikentiypankov1985@bk.ru -
msg:=TIdMessage.Create;
msg.Clear;
With TIdPOP3.Create do
Begin
  Host:='pop.bk.ru';
  UserName:='***********@bk.ru';
  Password:='*******';
  Port:=110;
  Connect();
  Retrieve(0,Msg);
End;
ShowMessage(msg.Body.Text);
end;

end.

в msg.body.text пусто... помогите!

 

А вы уверены что вы конектитесь?
уже тогда добавте 2 условия
1 if idpop3.connected then // Прверили что прицепились
begin
if idpop3.checkmessage>1 then Retrieve(0,Msg);// если сообщения есть то получаем
end;

Да еще автологин поставьте в труе.

 

Не работает. подключение есть, CheckMessages возвращает количество писем на ящике.

 

покажите пожалуйста, deleted (deleted@bk.ru)
какие сообщения в msg.body.text ?

ИМХО, Вы оставляете это поле пустым по ошибке.

 

Всем спасибо, уже разобрался
нужно было Retrieve(Message,3)