Delphi GEmail

Delphi-GEmail

Gmail を使用してメールを送信するための Delphi クラス。

使用サンプル:

  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 ;
  

注 1: 実行可能ファイルのパスに 2 つの openSSL ライブラリ「libeay32.dll」と「ssleay32.dll」を追加します。

注 2: 外部アプリからのメールの送信を許可するように電子メールの「[email protected]」アカウントを設定します。個人設定 (gmail) に入力して、「セキュリティ」に移動します。「2 段階認証プロセス」を有効にして、「アプリのパスワード」を追加します。または「安全性の低いアプリを許可する」を有効にします

詳細情報: http://delphiprogrammingdiary.blogspot.com/2016/09/send-email-with-html-body-format-in.html http://www.andrecelestino.com/delphi-xe-envio-de-電子メール-com-componentes-indy/