Utilizar Gmail con SSL
 

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

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

Funciona muy bien
 

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

Puedes verificar si ya está conectado o no:

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

// Saludos

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

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

// 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.

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:

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 :o).

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

saludos

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

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!!!.

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.

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

Excelente aporte. Ya he comprobado que a mi tampoco me funciona ya el ejemplo de arriba y con el cambio propuesto todo vuelve a la normalidad. Muchas gracias.

He sustituido el ejemplo original con la nueva versión y he agregado en el zip el ejecutable (pero éste funcionará sólo si se tienen Delphi 7 y las bibliotecas SSL instaladas).

// Saludos

Más problemas con gmail
 

Hola a todos,

Muy buenos aportes.

Les cuento que estoy tratando de enviar correos desde una cuenta administarada por gmail; pero, tengo problemas. Veamos.

1. Tengo Delphi 2007 y bajé las librerías de la última versión (openssl-1.0.0a-i386-win32); aunque también probe con alguna de las anteriores.

2. Modifiqué el campo "De" del ejemplo de Roman, para digitar ahí una dirección de correo completa y poder usar un dominio propio; pero administrado por gmail. Así pués, si el dominio gmail fuera miempresa.com, y el usuario soyyo , debo digitar soyyo@miempresa.com .

3. En ese punto, pensaba que por ser administrado por gmail, debía funcionar igual, en especial porque cuando se configura esa cuenta con OutLook u otros clientes de correo, la parametrización que usamos es la de gmail; pero con Delphi e Indy falló.

4. Para asegurar que el código de Roman aún funcionaba bien (gmail puede haber hecho otra vez cambios), probé a usar una cuenta "pura" gmail.com. Eso también me fallaba, hasta que descubrimos que funciona cuando tengo simultáneamente abierta la cuenta gmail. Como curiosidad, cuando detectamos esto, la cuenta la teníamos abierta en otro computador. Alguna idea de por qué pasa eso ?. Será un problema global por otro cambio gmail o exclusivo de mi equipo ?

Alguién ha podido hacer el envío de correos empleando una cuenta de dominio propia; pero, administrada por gmail ?

Solucionado caso de cuentas administradas
 

Hola,

Gracias a cualquiera que haya leído la pregunta.

Bueno, ya lo solucioné. Mi error era que había ajustado para que el From del IdMessage no mostrara el sufijo gmail.com; pero, pasé por alto que en ese caso en el TIdSMTP el username debe incluir el dominio administrado; es decir, debe ser soyyo@miempresa.com . y no solamente soyyo.

Lo que me despitó y me hizo buscar por otro lado es que los mensajes de error no tenían nada que ver con la causa y sobre todo lo de que el envío normal no funcionaba; ya que parece ser un verdadero bug. Eso es algo sobre lo que los diseñadores de Indy podrían trabajar; le puede ahorrar a la gente mucho tiempo de pruebas e investigación.

error
 

Pues yo lo tengo todo exactamente igual y me da un error del tipo " ....exe faulted with message: 'access violation at 0x00404230 ....."

Que versiones usas ?
 

Hola,

Cuando dices que tienes todo igual, te refieres también a que son exactamente las mismas versiones de Delphi, Indy y SSL ?, o solo te refieres a la parte de código. Si no tienes las mismas versiones, indícanos que versiones usas de Delphi, de Indy y de SSL Como mencionamos en este hilo http://www.clubdelphi.com/foros/showthread.php?t=70314 , hay problemas en el uso de versiones combinadas de Delphi, Indy y SSL

Uso DElphi 5 y las indy 10, ya que las Indy 9 no triaian la propiedad para SSL para enviar mensajes a traves de gmail. Las librerias SSL que utilizo son las openssl-1.0.0a.

Bueno despues de hacer unos cambios, quitar las Indy 10 y poner las 9, he conseguido que funcione. Decididamente Delphi 5 e Indy 10 no son nada compatibles para usar con SSL.