8 respuestas en este tema

[tiquinho]

Buenos días a todos

 

Se me presenta el siguiente mensaja "SSL Negotiation failed" cuando intento enviar un correo a tráves del componente Indy.

 

Pero este mensaje solo se me presenta con un host, ya que con otros host no pasa.

 

Ejemplo

 

Host que presenta error

 

Host de error:  mail.rehabilitar.com.co

Puerto: 465

email: correo@rehabilitar.com.co

pw: *******

 

Host que envia el correo sin problemas

 

Host de error:  mail.esepopayan.gov.co

Puerto: 465

 

email: correo@esepopayan.gov.co

pw: *******

 

Ya he realizado varios ajustes(ddl, ajuste a method entre otros) y nada, siempre que pongo el host mail.rehabilitar.com.co me sale el error, lo cambio a mail.esepopayan.gov.co y pasa sin problemas.

No se si tenga que ver que el host de esepopyan funcione en un servidor windows y el de rehabilitar en un servidor linux. No tengo conocimientos sobre esas cuestiones.

 

Muchas gracias por la ayuda que me puedan brindar.

delphi

class function TUEnviarCorreo.EnviarCorreo(pParametrosEmail : TParametrosEmailAWA): Boolean;
var vSSL  : TIdSSLIOHandlerSocketOpenSSL;
    vSMPT : TIdSMTP;
    vDATA: TIdMessage;
    vAttachmentfile : TIdAttachmentFile;
    i : Integer;
    vZip : TZIPFile ;
    vNombreZipArchivo:string;
begin
  vSSL  := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  vSMPT := TIdSMTP.Create(nil);
  vDATA := TIdMessage.Create(nil);
  vZip := TZipFile.Create;
  try
 
    // asignar datos SSL
    vSSL.Host := trim(pParametrosEmail.FHost);
    vSSL.Port := pParametrosEmail.FPort;
    vSSL.MaxLineAction := maException;
    vSSL.Destination := trim(vSSL.Host) + ':' + trim(vSSL.Port.ToString);
    vSSL.SSLOptions.Method := sslvTLSv1_2;
    vSSL.SSLOptions.Mode := sslmUnassigned;
    vSSL.SSLOptions.VerifyMode := [];
    vSSL.SSLOptions.VerifyDepth := 0;
    // asignar datos SMTP
    vSMPT.Host := trim(pParametrosEmail.FHost); 
    vSMPT.Port := pParametrosEmail.FPort;
    vSMPT.Username := trim(pParametrosEmail.FDireccionSalida); // please change to your gmail address //
    vSMPT.Password := trim(pParametrosEmail.FDireccionPassword);
    vSMPT.IOHandler := vSSL;
    vSMPT.AuthType := satDefault;
    vSMPT.UseTLS := utUseExplicitTLS;
    // asignar informacion del mensaje
    vDATA.Subject := trim(pParametrosEmail.FAsunto);
    vDATA.Recipients.EMailAddresses := trim('xxxxxx@gmail.com');
    if (pParametrosEmail.FCC = 'T') then
      vDATA.CCList.EMailAddresses := trim(pParametrosEmail.FDireccionSalida);
    vDATA.Body.Text := pParametrosEmail.FMensaje;
    vDATA.From.Name := trim(pParametrosEmail.FNombreDireccionSalida);
    vDATA.From.Address := trim(pParametrosEmail.FDireccionSalida);
    //vDATA.ReceiptRecipient.Address := trim(pParametrosEmail.FDireccionSalida);
    vNombreZipArchivo := pParametrosEmail.FNumeroFactura+'.zip';
 
    vZip.Open(pParametrosEmail.FRuta+vNombreZipArchivo, zmWrite);
    for i := 0 to pParametrosEmail.FArchivosAdjuntos.Count - 1 do
    begin
 
      vZip.Add(WideString(pParametrosEmail.FArchivosAdjuntos[i]));
      //vAttachmentfile := TIdAttachmentFile.Create(vDATA.MessageParts, WideString(pParametrosEmail.FArchivosAdjuntos[i]))
    end;
 
     vAttachmentfile := TIdAttachmentFile.Create(vDATA.MessageParts,pParametrosEmail.FRuta+vNombreZipArchivo);
     vZip.Close;
    try
    //ShowMessage('correo 5 cuente');
    if not vSMPT.Connected then
      vSMPT.Connect;
    //ShowMessage('correo 5.1 cuente de nuevo');
    vSMPT.Send(vDATA);
    vSMPT.Disconnect(True);
    Result := true;
 
    except
    on E: Exception do
    begin
      ShowMessage(E.Message);
      Result := false;
    end;
  end;
  finally
    vSMPT.Free;
    vSSL.Free;
    vZip.Free;
  end;
end;

 

 

 

 

 

 

 

 

 

 

 

 

[escafandra]

Ha habido cambios en los protocolos para aumentar la seguridad. Quizás usas una versión antigua o el servidor de correo esté configurado para no permitir envíos desde aplicaciones consideradas no seguras.

 

Mira este ejemplo de seoane usando curl

 

 

Saludos.

[tiquinho]

Ha habido cambios en los protocolos para aumentar la seguridad. Quizás usas una versión antigua o el servidor de correo esté configurado para no permitir envíos desde aplicaciones consideradas no seguras.

 

Mira este ejemplo de seoane usando curl

 

 

Saludos.

 

Hola buenos días

 

Uso la versión 10.6.2.0, trabajo con delphi 10.4

[egostar]

Hola tiquinho
 
Yo tengo esta configuración y funciona sin problema, 
  

delphi

  
  IdSMTP1.Host     := Servidor;
  IdSMTP1.Username := CuentaSalida;
  IdSMTP1.Password := PasswSalida;
  IdSMTP1.Port     := PuertoSalida;
 
  if chkBox_SSL.Checked then
  begin
    SSL.Port := IdSMTP1.Port;
    SSL.SSLOptions.Method := sslvTLSv1_2;
    IdSMTP1.IOHandler := SSL;
    IdSMTP1.UseTLS := utUseExplicitTLS;
  end;

Espero te ayude.

Saludos

[tiquinho]

Les comento que el problema se pudo solucionar a medias por así decirlo, simplemente se cambio de proveedor de correo a gmail y se pudo enviar los correos.

 

Supongo que el problema era desde infraestructura del proveedor de internet que ofrece a la institución.

 

La única diferencia que encontré entre el que funcionaba y el que no fue lo siguiente:

 

Correcta (institución ese popayán):

'220-host-esepopayan.esepopayan.gov.co ESMTP Exim 4.95 #2 Mon, 26 Sep 2022 13:14:36 -0500'

 

Incorrecta (ips rehabilitar popayán):

'220-vps-128502.ipsnuevapopayana.com ESMTP Exim 4.95 #2 Mon, 26 Sep 2022 13:47:17 -0500'

 

Creo que el error es aquí:

ipsnuevapopayana 

 

Ya que, en mi concepto, debería ser: ipsnuevapopayan (sin la a al final, ya que la ciudad es popayan). 

 

Por ahora cierro el tema.

 

Muchas gracias por sacar de su tiempo para darme una respuesta

[genriquez]

Hola grupo, se me está presentando el mismo problema,  desde mi aplicación en windows funciona perfectamente, pero al intentar correrlo en mi servidor linux ubuntu ya no funciona.  he intentado muchas otras cosas y no he podido solucionar el problema.

 

Tengo total control sobre el servidor linux pero aún así no he podido encontrar cual es el problema.  

 

Servidor ubuntu 22.04.

 

Saludos.

[genriquez]

El tema del correo en Linux no ha sido tan sencillo de solucionar,  aparentemente el soporte de indy para Linux OpenSSL no funciona (creo),  la solución fue hacer el envío sin el protocolo SSL y a un puerto especifico para ello en el servidor de correos,  no se con certeza si hay soporte de Indy para SSL, pero lo solucioné de esta manera al menos para continuar.

 

El servidor es de Godaddy.

delphi

SMTP.IOHandler := LSocketSSl;
    SMTP.Host := 'smtpout.secureserver.net';
    SMTP.Port := 3535; //Puerto que no exige SSL
    SMTP.AuthType := satDefault;
    SMTP.Username := 'usuario@micorreo.com';
    SMTP.Password := 'password*';
    //SMTP.UseTLS := utUseExplicitTLS;  //Se elimina esta línea
    SMTP.UseTLS := utNoTLSSupport;  //Se adiciona esta línea.

[egostar]

Hola amigo Gustavo,

 

Muchas gracias por la retro. YO suelo utilizar cURL para envío de correos, lo hago en windows y debería funcionar en Linux, voy a hacer unas pruebas y en cuanto tenga algo lo subo.

 

Saludos

[genriquez]

SOLUCIONADO!

 

Definitivamente a día de hoy con la versión Delphi 11.3 las bibliotecas de Indy no soportan la versión instalada de opensll, por lo tanto, hay que instalar una versión anterior.

 

En el post de Synaptica.ino encontré la respuesta y ya la probé, funcionando muy bien en ubuntu 22.04 Ya probé el envío de correos y en webbroker el certificado para habilitar el https.

 

https://synaptica.in...n-ubuntu-20-04/

php

wget https://www.openssl.org/source/old/1.0.2/openssl-1.0.2u.tar.gz 
tar -xf openssl-1.0.2u.tar.gz cd openssl-1.0.2u 
./config shared 
Make

Una vez compilado, solo hay que copiar las librerías *.so junto a la aplicación en Linux con el siguiente comando.

php

cp ./*.so /<YOUR FOLDER>

* Recuerden que en linux puede necesitar anteponer sudo antes de los comandos dependiendo de los permisos

 

** igualmente cada vez que se compila en linux se borra la carpeta completa, así que tienen 2 opciones copiar nuevamente los archivos .so después de compilarlos o adiconarlos en los anexos de la aplicación para que al momento de compilación automáticamente los copie.