S.O.S mail con TIDSMTP1 , ERROR SOCKET

[cmena]

hola , tengo este codigo para probar enviar email con indy delphi7

Código Delphi:
IdSMTP1.Port := 25; IdSMTP1.Host := 'kovacs.cl'; {'smtp.kovacs.cl'} IdSMTP1.Username := ''; IdSMTP1.Password := ''; IdMessage1.Recipients.Add; IdMessage1.Recipients[0].Name := 'armijo'; IdMessage1.Recipients[0].Address := 'cmena@kovacs.cl'; {destino} IdMessage1.From.Name := 'mena'; IdMessage1.From.Address := 'cmena@kovacs.cl'; {remitetente} IdMessage1.Subject := 'prueba'; IdMessage1.Body.Text := 'la raja'; IdSMTP1.Connect(30000); try try IdSMTP1.Send(IdMessage1); except on E: Exception do ShowMessage('fallo'); end; finally if IdSMTP1.Connected then IdSMTP1.Disconnect; end; IdMessage1.Free; IdSMTP1.Free;

Citar:
se me cae con un error de socket #10053, el servidor kovacs.cl lo tengo en la intraweb, dentro de la Lan tengo un router que me conecta con el servidor de correo kovacs.cl , no tendre que definir la direccion ip del router como puerta de enlace? MI TCP/IP ESTA YA CONFIGURADO Y EL ENVIO DE CORREO POR EL OUTLOOK FUNCIONA CORRECTAMENTE.
DONDE PUEDE ESTAR LA FALLA?

[dec]

Hola,

Por favor, cmena, no repitas Hilos, porque no sirve de nada. Echa un vistazo a la guía de estilo. Este hilo queda cerrado por estar repetido aquí.