Delphi GEmail

Delphi-GEmail

Clase de Delphi para enviar un correo electrónico usando gmail.

Utilice muestra:

  Gmail := TcfsGmail.Create( ' [email protected] ' , ' App password ' , ' From you/company ' );
  try
    try
      Gmail.Connect;
      Gmail.Send([ ' [email protected] ' ], ' Subject ' , ' PlainBody ' , ' htmlBody ' , ' AttachmentFile ' );
      // Gmail.Send(...);
      // Gmail.Send(...);
    except
      on E: Exception do
        ShowMessage(E.Message);
    end ;
  finally
    GEmail.Free;
  end ;
  

NOTA 1: Agregue en la ruta del archivo ejecutable las dos bibliotecas openSSL: "libeay32.dll" y "ssleay32.dll".

NOTA 2: Configure su cuenta de correo electrónico "[email protected]" para permitir el envío de correos electrónicos desde una aplicación externa: Ingrese a su Configuración personal (gmail) vaya a "Seguridad": Active la “Verificación en 2 pasos” y agregue la “Contraseña de la aplicación” o Activar "Permitir aplicaciones menos seguras"

Más información: http://delphiprogrammingdiary.blogspot.com/2016/09/send-email-with-html-body-format-in.html http://www.andrecelestino.com/delphi-xe-envio-de- correo-e-com-componentes-indy/