Ver Mensaje Individual
  #7  
Antiguo 07-11-2018
emeritos emeritos is offline
Miembro
 
Registrado: may 2003
Posts: 307
Reputación: 21
emeritos Va por buen camino
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

Última edición por Casimiro Notevi fecha: 07-11-2018 a las 10:36:38.
Responder Con Cita