Ssl Email

[usuario1000]

Buenas a todos.


Os escribo porque realicé un programa(Cliente-servidor en Delphi 10) hace ya algún tiempo y funcionaba perfectamente, llevo control de proveedores que me comunica por email, pero desde hace unos días para acá, no me llegan los emails. Revisando el codigo fuente, me da el error a la hora de ejecutar esta instrucción: SMTP.Connect; el error que me sale es "Could not load SSL Library".



Pego un poco del código fuente donde se ejecuta esto:

Código Delphi [-]
  SMTP := TIDsmtp.Create(nil);
  DATA := TIDMessage.Create(nil);
  SSL  := TIdSSLIOhandlerSocketOpenSSL.Create(nil);

  SSL.SSLOptions.Method := SSLVtlsv1;  //no sé si aquí debo tocar algo???
  SSL.SSLOptions.Mode := sslmUNassigned;
  SSL.SSLOptions.VerifyMode := [];
  SSL.SSLOptions.VerifyDepth:= 0;


  DATA.ContentType := 'text/plain';
  DATA.CharSet :=  'UTF-8';
  DATA.From.Address := 'correo@electronico.es';
  DATA.Recipients.EMailAddresses := destinatario; //destinatario;
  DATA.Subject := asunto;
  DATA.Body.Text := cuerpo;

  SMTP.IOHandler := SSL;
  SMTP.Host := 'smtp.servidor.com';
  SMTP.Port := 465;
  SMTP.Username := 'correo@electronico.es';
  SMTP.Password := 'contraseña';
  SMTP.UseTLS := utUseExplicitTLS;


 SMTP.Connect;  // aquí lanza el error.

Me urge muchísimo, porque lo utilizo en mi trabajo a diario para control a proveedores.


Agradeceria mucho cualquier tipo de información que me ayude a solventar este problema


He revisado hilos pero no me aclaran mucho.


Gracias a todos.