enviar email a gmail /hotmail /...

[luisgutierrezb]

Creo que hay un problema de concepto, dices que desde la cuenta de una empresa quieres mandar correos a gmail, hotmail etc, no tienes porqué conectarte al smtp de hotmail o Gmail, tienes que conectarte al smtp de la empresa y decir que el correo es para Gmail y de ahí lo mandara no conectarte a cada smtp de donde lo quieras enviar

[Neftali [Germán.Estévez]]

Como te ha dicho [Casimiro] para usar este tipo de cuenta, hare tiempo que es necesario utilizar SSL. Ya hace años que estos servidores (GMail, Hotmail, Yahoo,...) obligan a conectarse utilizando protocolos seguros.
Para ello es necesario utilizar el componente TIdSSLIOHandlerSocket (y librerías OpenSSL).


Si busca en los foros por este componente (TIdSSLIOHandlerSocket) encontrarás más hilos al respoecto.


Algunas configuraciones que te pueden ser utiles:

Código Delphi [-]
[GMail]
MailServer=smtp.gmail.com
PortServer=465
FromAdress=_CORREO_
FromText=Test correo
////// Valores posibles:  SSLMethod = (sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1)
SSLMethod=sslvTLSv1
Password=_PASSWORD_

[Hotmail]
MailServer=smtp-mail.outlook.com
PortServer=587
FromAdress=_CORREO_
////// Valores posibles:  UseTSL = (utNoTLSSupport, utUseImplicitTLS, utUseRequireTLS, utUseExplicitTLS);
UseTSL=utUseExplicitTLS
////// Valores posibles:  SSLMethod = (sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1)
SSLMethod=sslvTLSv1
Password=_PASSWORD_

[Yahoo-JL]
MailServer=smtp.correo.yahoo.es
PortServer=465
FromAdress=_CORREO_
FromText=_CORREO_
Password=_PASSWORD_

[emeritos]

yo lo tengo asi:

Código Delphi [-]
    DLLHandlelib := LoadLibrary('libeay32.dll');
    DLLHandlessl := LoadLibrary('ssleay32.dll');
    cArchivo := 'C:\carpeta\pdf\Incidencias.pdf';
    mailMensaje.Clear;
    mailMensaje.From.Address := 'xxx@gmail.com';

    mailMensaje.Subject := Etexto.Text;
    Etexto.Text := 'texto a poner';
    mailMensaje.Body.SetText(Etexto.Lines.GetText);
    mailMensaje.From.Name := 'Incidencias';
    mailMensaje.Recipients.EMailAddresses := email.Text;
    indySMTP.Host := 'smtp.gmail.com';
    indySMTP.Username := 'xxx@gmail.com';
    indySMTP.Password := 'clave';
    indySMTP.Port := 465;

    TIdAttachment.Create(mailMensaje.MessageParts, cArchivo);
    indySMTP.AuthenticationType := atLogin;
    indySMTP.IOHandler := IdSSLIOHandlerSocket1;
    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23;
    IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmUnassigned;


    indySMTP.Connect;

    If indySMTP.Connected
       Then
          Begin
              indySMTP.Send(mailMensaje);
              indySMTP.Disconnect;
              showmessage('El mensaje se envió correctamente');
          End
       Else showmessage('Se produjo un fallo durante el envío del mensaje');

Sea al correo que sea, me da error en la lineas "indySMTP.Connect;" que es este "Proyect programa.exe raised exception class EIdOSSL ConnectError with mensage "Error connecting SSL" ........



Como lo puedo solucionar. Gracias

[Casimiro Notevi]

Puede que espere otra versión de la SSL, en lugar de la sslvSSLv23

[emeritos]

Como puedo averiguar la version correcta. Por que creo que en otro programa ya me funciono.

Gracias.

[emeritos]

He probado con todas estas que vienen y todas dan el mismo fallo

Código Delphi [-]
//    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23;
//    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv2;
//    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv3;
//    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvTLSv1;