Delphi XE3 SMTP не отправляет на smtp.mail.ru

[xxbesoxx]

Здравствуйте ребята . Не могу отправить письмо из mail.ru А через yandex.ru отправляет нормально .

1.

 Uses IdAttachmentFile

2. Кнопка отправить

rocedure TForm1.BitBtn1Click(Sender: TObject);
 begin
  SMTP.Host := 'smtp.yandex.ru'; // Проваидер
  SMTP.Port:=25;
  SMTP.Username:='beso10';  //  логин
  SMTP.Password:='******';     // пароль
  with IdMessage1 do
     begin
      Body.Assign(Memo1.Lines); // Текст из Memo
      From.Text := 'beso10@yandex.ru'; // от кого
      Recipients.EMailAddresses := 'xxxxxxxxx@gmail.com'; //кому
      Subject := 'Привет';
     end;
   SMTP.Connect;
   try
      SMTP.Send(IdMessage1);
      SMTP.Disconnect;
    except
     on E: Exception do
   end;

3. Прикрепить файл

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    if FileExists(OpenDialog1.FileName) then
    begin
       TIdAttachmentFile.Create(IdMessage1.MessageParts,OpenDialog1.FileName);
    end
    else
      raise Exception.Create('No such file');
end;

Проект на Delphi XE3 Вопрос : Как заставить программа чтобы он отправил письмо из mail.ru мне больше интересно mail.ru чем yandex.ru . Поменял порт на 465 и 2525 не какой результат . Пожалуйста помогите ребята ...

[Stilet]

Ога. Та же печалька с мылом.ру была.
Друг мой вроде ее решил используя старючие FastNM компоненты Делфи-6, а мне в ХЕ не удалось никак. Хотя на другие отправляет.

[xxbesoxx]

Что делать ? Придется использовать yandex.ru Но почему такой печаль непонятно