Utilizar Gmail con SSL

[JULIPO]

Estoy trabajando con delphi 2006, con componentes indy 10 quiero enviar email utilizando gmail pero me pide que utilice SSL y no se como hacerlo si alguien me puede ayudar le quedare muy agradecido.

julipo

[roman]

Hola,

Basándome en lo que Sotrono dice en el hilo Enviar mail con Gmail, preparé un ejemplo sencillo que adjunto. Para que funcione debes colocar las librerías libeay32.dll y ssleay32.dll en la carpeta gMailSend o en alguna carpeta en el path de Windows. Las librerías puedes bajarlas de http://indy.fulgan.com/SSL/

// Saludos

[JULIPO]

Gracias roman por tu ayuda el programa funciona muy bien. pero tengo un problema no se como desconectarme para enviar otro mail si coloco idsmtp.disconnect() me aparece un mensaje de error y si no lo coloco pue me indica que aun se encuentra conectado

nuevamente muchas gracias

[roman]

Puedes verificar si ya está conectado o no:

Código Delphi [-]
if IdSMTP.Connected then
  IdSMTP.Connect;

// Saludos

[mjjj]

Hola... estoy tratando de ahcer lo mismo que hice el amigo JULIPO... trate de bajare el ejemplo aportado por ROMAN, pero me dice que no tengo acceso al archivo.... sera que ya lo bajaron...

Creo que ese ejemplo me solucionaria todos mis problemas...

Que puedo hacer....

Saludos

[roman]

Hay algún problema ahora con los adjuntos, pero puedes tomar el ejemplo de aquí.

// Saludos

[Casimiro Notevi]

hugobenitez, no repitas preguntas en distintos sitios, gracias.

[avmm2004]

Empezado por roman

Hola,

Basándome en lo que Sotrono dice en el hilo Enviar mail con Gmail, preparé un ejemplo sencillo que adjunto. Para que funcione debes colocar las librerías libeay32.dll y ssleay32.dll en la carpeta gMailSend o en alguna carpeta en el path de Windows. Las librerías puedes bajarlas de http://indy.fulgan.com/SSL/

// Saludos

Gracias, Roman. Me acabas de resolver un montón de problemas con el ejemplo este. Llevo todo el día dándole vueltas a un tema para enviar correos y esto es lo que estaba buscando.

Gracias.

[erickahr]

Empezado por roman

Hola,

Basándome en lo que Sotrono dice en el hilo Enviar mail con Gmail, preparé un ejemplo sencillo que adjunto. Para que funcione debes colocar las librerías libeay32.dll y ssleay32.dll en la carpeta gMailSend o en alguna carpeta en el path de Windows. Las librerías puedes bajarlas de http://indy.fulgan.com/SSL/

// Saludos

Saludos Roman, aqui otra yo vez molestando, resulta que me baje el ejemplo que subiste, he intentado con ejemplos de muchas paginas, blogs, y demas... y no logro enviar un correo a gmail, resulta que ma baje los indy 10, y ya los tengo corriendo, las librerias que se mencionan en varias soluciones, segun veo mi codigo esta correcto, pero me manda un error que dice:

'Error connecting with SSL'

Segun veo en un memo que puse para monitorear el evento Status del IdSSLIOHandlerSocketOpenSSL, me indica que si se conecta, pero a la hora de enviar el correo me sale la excepcion, ademas del error me abre el codigo de la unidad IdSSLOpenSSL, en una este Procedure:

Código Delphi [-]
procedure TIdSSLSocket.Connect(const pHandle: TIdStackSocketHandle; fSSLContext: TIdSSLContext);
var
  error: Integer;
  StatusStr: String;
begin
  fSSL := IdSslNew(fSSLContext.fContext);
  if fSSL = nil then exit;
  if IdSslSetAppData(fSSL, self) <= 0 then begin
    raise EIdOSSLDataBindingError.Create(RSSSLDataBindingError);
    exit;
  end;
  IdSslSetFd(fSSL, pHandle);
  error := IdSslConnect(fSSL);
  if error <= 0 then begin
//    error2 := IdSslGetError(fSSL, error);
    raise EIdOSSLConnectError.Create(RSSSLConnectError);// esta es la excepcion que me bota
  end;
  StatusStr := 'Cipher: name = ' + Cipher.Name + '; ' +    {Do not Localize}
               'description = ' + Cipher.Description + '; ' +    {Do not Localize}
               'bits = ' + IntToStr(Cipher.Bits) + '; ' +    {Do not Localize}
               'version = ' + Cipher.Version + '; ';    {Do not Localize}
  if (fParent is TIdSSLIOHandlerSocketOpenSSL) then begin
    (fParent as TIdSSLIOHandlerSocketOpenSSL).DoStatusInfo(StatusStr);
  end;
end;

Ojala me puedas ayudar (una vez mas ).

[hiceman]

El error se soluciona cambiando la propiedad SSLOptions.method a "sslvSSLv3" del componente IdSSLIOHandlerSocketOpenSSL.

saludos

[roman]

Se agradece el aporte hiceman, y bienvenido a los foros. En mi caso me funciona con sslvSSLv2 pero esperemos que al compañero le funcione con la modificación que propones.

// Saludos

[Enan0]

Empezado por roman

Se agradece el aporte hiceman, y bienvenido a los foros. En mi caso me funciona con sslvSSLv2 pero esperemos que al compañero le funcione con la modificación que propones.

// Saludos

Hola Roman, hace unos dias (creo que un mes) gmail decidio discontinuar el uso de SSLv2 o algo similar. (lo lei en uno de los foros de Gmail) ya que de golpe. mis aplicaciones utilizando Indy9 y SSL dejaron de funcionar. (solo para gmail).

para ser mas exacto da aca lo lei!

http://www.google.com/support/forum/...108e4190&hl=en

espero que sirva de ayuda y gracias por el ejemplo con indy 10, ya que nunca habia podido hacer funcionar esta version, voy a ver si apartir de aca puedo hacerlo funcionar con IMAP.

[erickahr]

Empezado por hiceman

El error se soluciona cambiando la propiedad SSLOptions.method a "sslvSSLv3" del componente IdSSLIOHandlerSocketOpenSSL.

saludos

Muchas gracias hiceman... me sirvio de lujo tu solucion, solo eso faltaba para correr mi aplicacion, no se a que se deba, pero en efecto funciono con "sslvSSLv3".

Gracias tambien a Roman, que sin el zip que subio no sabria por donde iniciar.

Saludos!!!.

[Enan0]

Empezado por hiceman

El error se soluciona cambiando la propiedad SSLOptions.method a "sslvSSLv3" del componente IdSSLIOHandlerSocketOpenSSL.

saludos

Gracias Hiceman! la verdad que esto del error "Error connection with SSL" me estaba haciendo caer un poco mas el pelo ....

[javiergamboa10]

Roman y amigos:

Ante todo gracias por los aportes.

Descargé el ejemplo para enviar correos desde cuentas de gmail, pero al ejecutarlo me sale el error:

Socket error # 10060
Connection timed out.

Actualmente uso Delphi 2007 e Indy 10.

Que estaré haciendo mal???

[[gluglu]]

Miraste esto ?

http://www.clubdelphi.com/foros/show...140#post380140

[elguille]

Una función sin componentes declarados resumiendo lo dicho para poner en cualquier lado

Código Delphi [-]
Uses
  Forms, db, dbTables, dbGrids, Classes, Messages, Buttons,
  StdCtrls, Controls, Dialogs, SysUtils, IniFiles, Wintypes,
  DBIProcs, DBITypes, DBIErrs, ComCtrls, ExtCtrls, Printers,
  Windows, ShlObj, Ole2, Registry, quickrpt, qrctrls, Grids, shellapi, comobj,
  Variants,
  dbctrls, IdHTTP, WinInet, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack,
  IdSSL, IdSSLOpenSSL, IdExplicitTLSClientServerBase,
  IdBaseComponent, IdComponent, IdTCPServer, IdSMTPServer,
  IdMessage, IdEMailAddress, IdTCPConnection, IdTCPClient, IdMessageClient,
  IdSMTP, idexception, myaccess, IdAttachmentFile;

  procedure emailgmail(host: string; nombre: string; password: string;
    port: integer; desde: string; hasta: string; asunto: string;
    cuerpo: string; adjunto: string);
  var
    IDSMTP1: TIDSMTP; // Componente de envio de correo
    IdSSLIOHandlerSocketOpenSSL: tIdSSLIOHandlerSocketOpenSSL;
    mensaje: TIdMessage;
  begin
    // ejemplo emailgmail('smtp.gmail.com',*usuario*,*contraseña*,465,*emailorigen*,*emaildestino*,*asunto*,*cuerpo  *,*ficheroadjunto*);
    IdSSLIOHandlerSocketOpenSSL := tIdSSLIOHandlerSocketOpenSSL.Create(nil);
    IdSSLIOHandlerSocketOpenSSL.Destination := 'smtp.gmail.com:465';
    IdSSLIOHandlerSocketOpenSSL.host := 'smtp.gmail.com:465';
    IdSSLIOHandlerSocketOpenSSL.port := 465;
    IdSSLIOHandlerSocketOpenSSL.ssloptions.method := sslvSSLv3;
    IdSSLIOHandlerSocketOpenSSL.ssloptions.mode := sslmUnassigned;
    IDSMTP1 := TIDSMTP.Create(nil);
    IDSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL;
    IDSMTP1.UserNAME := nombre;
    IDSMTP1.password := password;
    IDSMTP1.host := host;
    IDSMTP1.port := port;
    IDSMTP1.UseTLS := utUseImplicitTLS;
    mensaje := TIdMessage.Create(nil);
    with mensaje do
    begin
      Body.Add(cuerpo);
      From.Text := desde;
      Recipients.EMailAddresses := hasta;
      Subject := asunto;
      Priority := TIdMessagePriority(mpHighest); // prioridad del mensaje
      CCList.EMailAddresses := '';
      BccList.EMailAddresses := '';
      if adjunto <> '' THEN
        TIdAttachmentfile.Create(mensaje.MessageParts, adjunto);
    end;
    with IDSMTP1 do
    begin
      try
        Connect;
        try
          // Envio el mensaje.
          Send(mensaje);
        finally
          Disconnect;
        end;
        // MessageDlg('Enviado Correctamente', mtInformation, [mbOK], 0);
      except
        // Capturo algunas excepciones que pueden ocurrir (alguien podria ampliarlo con los posibles errores)
        { ON E: EProtocolReplyError do begin
          MessageDlg('No se ha podido enviar el email.' + #13 +
          'Incorrecto el email o el usuario o la password.', mtError, [mbOK], 0);
          end; }
        on E: EFOpenError do
        begin
          MessageDlg('No se ha podido enviar el email.' + #13 +
              'Fichero Adjunto desconocido o erróneo.', mtError, [mbOK], 0);
        end;
        { on E: EIdSocketError do begin
          MessageDlg('No se ha podido enviar el email.'+ #13 +
          'Host desconocido o incorrecto.', mtError, [mbOK], 0);
          end }
        else
          begin
            MessageDlg('Fallo en el envio de email', mtError, [mbOK], 0);
          end;
        end;
      end;
      IDSMTP1.free;
      IdSSLIOHandlerSocketOpenSSL.free;
    ENd;

ejemplo sustituyendo lo encerrado en * por vuestras necesidades

emailgmail('smtp.gmail.com',*usuario*,*contraseña*,465,*emailorigen*,*emaildestino*,*asunto*,*cuerpo *,*ficheroadjunto*);

(no os olvideis de copiar las dll de OPENSSL mencionadas en el post accesibles al ejecutable)

Delphi 2010 y las Indy que vienen con el