hola , tengo este codigo para probar enviar email con indy delphi7
Código Delphi
[-]
IdSMTP1.Port := 25;
IdSMTP1.Host := 'kovacs.cl';
IdSMTP1.Username := '';
IdSMTP1.Password := '';
IdMessage1.Recipients.Add;
IdMessage1.Recipients[0].Name := 'armijo';
IdMessage1.Recipients[0].Address := 'cmena@kovacs.cl';
IdMessage1.From.Name := 'mena';
IdMessage1.From.Address := 'cmena@kovacs.cl';
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?