He hablado muy rápido,....relamente me funciona, pero cada vez que abro de nuevo el programa para enviar un mail me lanza el error "Could not load SSL library". Y eso que las tengo en la carpeta del programa y en el system32 de windows. El tema es que si las reempleazo por las originales vuelve a funcionar, pero claro tengo que estar cada vez reeemplazando las librerias. ¿RAro no?

Ayuda
 

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???

Miraste esto ?

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

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

IdExplicitTLSClientServerBase
 

Hola tengo una consulta!! el gmailsend me anda perfectamente, pero cuando lo quiero compilar como para hacer unas pruebas o cambios

me tira el error:
[Fatal Error] Principal.pas(10): Unit IdIOHandlerStack was compiled with a different version of IdGlobal.TIdBytes

yo uso delphi 7 + indy 10

muchas gracias

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.

Hola! estoy con el mismo problema q vos, uso delphi 7 + indy 10, y del ejemplo de gmailsend me envia correctamente desde una casilla de gmail a una de hotmail. El problema es cuando uso mi dominio como comentas vos soyyo@miempresa.com.ar me tira un error de authentication #5.7.1 y con la de soyyo@gmail.com lo envia correctamente...
El puerto q uso es el: 465
y el smtp es :

Por favor si me podes dar una pista o una ayuda te lo agredeceria muchisimo

hugobenitez, no repitas preguntas en distintos sitios, gracias.

Consulta sobre tu experiencia
 

Hola que tal Casper_z, quisiera saber si pudiste resolver y todavia te funciona esto que hiciste para enviar por gmail los correos? Gracias!

Error SSL
 

Cordial saludo

Estoy tratando de enviar un correo con Delphi 10, probé el ejemplo que está en este hilo pero da este error:

Error connecting with SSL
error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number

He intentado hacer un ejemplo nuevo y también obtengo error de conexión SSL. Incluso probé un ejemplo que tengo en delphi 7 que funcionaba perfectamente y ahora me da error.

Agradezco la ayuda que me puedan dar. Muchas gracias.

La versión 3 de SSL fue abandonada por la industria hace como tres años por ser vulnerable a ataques. La industria informática fue degradarse a las primeras versiones 2.x y 1.x. Esto debe estar causando el errr que mencionas.

Deberías de cambiar o eliminar la linea:
Saludos!

Muchas gracias por la respuesta.

Usando esta línea se envían los correos:

IdSSLIOHandlerSocket.SSLOptions.Method := sslvSSLv23;

Como se que dll debo usar
 

hola gente soy nuevo x aca, necesito que mi sistema envie un mail pero no logro hacer, me e bajado el ejm de roman pero al ejecutarlo me da error de soket #11001 host no found. el detalle es que veo que hay que seleccionar adecuadamente las dll segun la verision del delphi y la indy yo uso delphi10.2 indy 10.1.5 y la version de mi windows es 10 de 64 bits quesiera saber quien puede orientarme. desde ya muchas gracias

Te recomiendo que me escribas a xxxxxxxxxxxx y te mando lo que tengo que me funciona, porque seguro es eso que dices y cuando no se tiene algo eso salen errores y es un dolor de cabeza que ha he vivido.

Por favor, lee nuestra guía de estilo, no es correcto lo que dices.