[cincosoft]

Hola,

Estoy intentando enviar correo desde una pantalla y al intentar la conexión me da el siguiente error:

...raised exception class EIdSocketError with message 'Socket Error # 11001 Host not found,', Process stopped.....

El código es el siguiente:

Código Delphi [-]
procedure TFRMListados.EnviarMensaje(sUsuario, sClave, SHost, sAdjunto,
  sAsunto, sDestino, sMensaje: String; sPort : Integer);
var
  smtp : TIdSMTP;
begin
  //Creamos los componentes de conexión con el servidor
  smtp := TIdSMTP.Create(nil);
  smtp.Username := 'miusuario@gmail.com';
  smtp.Password := 'miclave';
  smtp.Host := 'smtp.gmail.com';
  smtp.Port := 25;
  smtp.AuthenticationType := atLogin;

  smtp.Connect;  -- Linea que da el error

También probé con el puerto 465.

Muchas gracias.