отправка письмо на mail.ru

[BanDit]

Здравствуйте.
Не получается отправить письмо на ящик маил ру.
Читал похожие темы, но ничего не получается.
У меня Делфи 7

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient,  StdCtrls, Buttons, IdMessage,
  IdSMTP;

type
  TForm1 = class(TForm)

    Button1: TButton;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}




procedure TForm1.Button1Click(Sender: TObject);

    var
msg:TIdMessage;

begin
idsmtp1.Host:='mail.ru';
idsmtp1.Port:=25;
idsmtp1.Username:='vasya_pupkin';
idsmtp1.Password:='12345';
msg:=Tidmessage.Create(self);

try
  msg.Body.Text:='TestMsg';
  msg.Subject:='Testing Message';
  msg.From.Address:='vasya_pupkin@mail.ru';
	msg.From.Name:='ываыа';
  msg.Recipients.EMailAddresses:='<aleksei@mail.ru>';
  msg.IsEncoded:=true;

idsmtp1.Connect;
  idsmtp1.Send(msg);
finally
  msg.Free;
end;
end;

end.

Выдает такую вот ошибку:
'Socket error #10060 Connection timed out'

[Evgeniy26]

idsmtp1.Host:='smtp.mail.ru';

Порт: SMTP — 25, 2525 или 587.
http://www.mail.ru/pages/help/2.html#2333

[BanDit]

Ну а вроде я следующей строкой прописал

idsmtp1.Port:=25;

или нужно что то по другому сделать?

[Evgeniy26]

Если 25 не проходит, попробуй 587. У меня с 25 на маил не коннектит.

[BanDit]

порты все перепробовал

[Вавел из ГМТУ]

Хост правильно указан? ибо правильно это когда smtp.mail.ru, а не когда mail.ru...

[BanDit]

Всё заработало, через 25 порт.
Сделал все как тут
http://programmersforum.ru/showthread.php?t=17625
Спасибо всем