Delphi GEmail

Delphi-GEmail

Classe Delphi pour envoyer un e-mail avec Gmail.

Utiliser un échantillon :

  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 ;
  

REMARQUE 1 : Ajoutez dans le chemin de votre fichier exécutable les deux bibliothèques openSSL : "libeay32.dll" et "ssleay32.dll".

REMARQUE 2 : Configurez votre compte de messagerie "[email protected]" pour autoriser l'envoi de mails depuis une application externe : Entrez dans vos paramètres personnels (gmail), allez dans "Sécurité" : activez la "Vérification en 2 étapes" et ajoutez le "Mot de passe de l'application". ou Activez "Autoriser les applications moins sécurisées"

Plus d'informations : 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/