Ver Mensaje Individual
  #5  
Antiguo 04-05-2016
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Reputación: 19
Angel.Matilla Va por buen camino
He pasado a Indy 10

Bueno. Después de muchas idas y venidas he instalado los componentes de Indy 10, descargados desde https://indy.fulgan.com/ZIP/Indy10_5359.zip (vienen con el instalador para todas las versiones de Builder y Delphi). He modificado el código de la siguiente forma:
Código:
IdMessage1->From->Address = "administracion-socios@internautas.org";   //Remitente
IdMessage1->Subject = "Prueba de envío";
IdMessage1->Body->SetText("Esto es una prueba.");
IdMessage1->Recipients->Add();
IdMessage1->Recipients->EMailAddresses = "angelmatillacandas@gmail.com";      //Destinatario

IdSSLIOHandlerSocketOpenSSL1->PassThrough = true;
IdSMTP1->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
IdSMTP1->Username                  = "<usuario>";
IdSMTP1->Password                  = "<clave>";
IdSMTP1->Host                      = "mail.internautas.org";
IdSMTP1->AuthType                  = satDefault;
IdSMTP1->Port                      = 25;
IdSMTP1->Connect();
IdSMTP1->SendCmd("STARTTLS");
IdSSLIOHandlerSocketOpenSSL1->PassThrough = false;
IdSMTP1->Authenticate();
IdSMTP1->Send(IdMessage1);
Ahora el error que se muestra es este otro:

Y en la carpeta del ejecutable están las librerías SSL
Responder Con Cita