Delphi GEmail

Delphi-GEmail

Classe Delphi para enviar um email usando o Gmail.

Usar amostra:

  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: Adicione no caminho do arquivo executável as duas bibliotecas openSSL: "libeay32.dll" e "ssleay32.dll".

NOTA 2: Configure sua conta de e-mail "[email protected]" para permitir o envio de e-mails de um aplicativo externo: Entre em sua Configuração Pessoal (gmail) vá em "Segurança": Ative “Verificação em 2 etapas” e adicione “Senha do aplicativo” ou Ative "Permitir aplicativos menos seguros"

Mais informações: http://delphiprogrammingdiary.blogspot.com/2016/09/send-email-with-html-body-format-in.html http://www.andrecelestino.com/delphi-xe-envio-de- e-mail-com-componentes-indy/