hola ,
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 exception E: Exception do
ShowMessage('fallo');
end;
finally
if IdSMTP1.Connected then
IdSMTP1.Disconnect;
end;
IdMessage1.Free;
IdSMTP1.Free;
end;
se me cae con un error se socket #10053, el servidor kovacs.cl lo tengo en la intraweb, lo tengo con otra direccion de red pero dentro de la misma intraweb, dentro de la Lan tengo un router que me conecta con el servidor de correo, 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.