Delphi GEmail

德尔福GEmail

Delphi 类使用 gmail 发送电子邮件。

使用样本：

  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：在可执行文件路径中添加两个 openSSL 库：“libeay32.dll”和“ssleay32.dll”。

注 2：配置您的电子邮件“[email protected]”帐户以允许从外部应用程序发送邮件：输入您的个人设置（gmail）进入“安全”：激活“两步验证”并添加“应用程序密码”或激活“允许安全性较低的应用程序”

更多信息：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/