Send Email using Gmail in Delphi

In previous section, I introduced how to send email over SSL/TLS connection. In this section, I will introduce how to send email using Gmail account in Delphi.

Introduction

Gmail SMTP server address is smtp.gmail.com. It requires implicit SSL or explicit SSL (TLS) connection, and you should use your Gmail email address as the user name for ESMTP authentication. For example: your email is gmailid@gmail.com, and then the user name should be gmailid@gmail.com.

Server Port SSL/TLS
smtp.gmail.com 25, 587 TLS
smtp.gmail.com 465 SSL

Important

If you got authentication error, you need to enable Allowing less secure apps or Sign in using App Passwords.

Another way is Gmail OAUH, please see Gmail SMTP OAUTH section.

Note

Remarks: All of samples in this section are based on first section: Send email in a simple Delphi project. To compile and run the following example codes successfully, please click here to learn how to create the test project and add reference of EASendMail to your project.

[Delphi - Send email using Gmail account over implicit SSL on 465 port - Example ]

The following example codes demonstrate how to send email using Gmail account over SSL in Delphi.

Note

To get the full sample projects, please refer to Samples section.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, EASendMailObjLib_TLB; // add EASendMail unit
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  oSmtp : TMail;
begin
  oSmtp := TMail.Create(Application);
  oSmtp.LicenseCode := 'TryIt';

  // Your Gmail email address
  oSmtp.FromAddr := 'gmailid@gmail.com';

  // Add recipient email address
  oSmtp.AddRecipientEx( 'support@emailarchitect.net', 0);

  // Set email subject
  oSmtp.Subject := 'simple email from gmail account';

  // Set email body
  oSmtp.BodyText := 'this is a test email sent from Delphi using Gmail';

  // Gmail SMTP server address
  oSmtp.ServerAddr := 'smtp.gmail.com';

  // set direct SSL 465 port,
  oSmtp.ServerPort := 465;

  // detect SSL/TLS automatically
  oSmtp.SSL_init();

  // Gmail user authentication should use your
  // Gmail email address as the user name.
  // For example: your email is "gmailid@gmail.com", then the user should be "gmailid@gmail.com"
  oSmtp.UserName := 'gmailid@gmail.com';
  oSmtp.Password := 'yourpassword';

  ShowMessage( 'start to send email ...' );
  if oSmtp.SendMail() = 0 then
    ShowMessage( 'email was sent successfully!' )
  else
    ShowMessage( 'failed to send email with the following error: '
    + oSmtp.GetLastErrDescription());
end;
end.

[Delphi - Send email using Gmail account over explicit SSL (TLS) on 25 or 587 port]

The following example codes demonstrate how to send email using Gmail account over TLS in Delphi.

Note

To get the full sample projects, please refer to Samples section.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, EASendMailObjLib_TLB; // add EASendMail unit
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  oSmtp : TMail;
begin
  oSmtp := TMail.Create(Application);
  oSmtp.LicenseCode := 'TryIt';
  // Your Gmail email address
  oSmtp.FromAddr := 'gmailid@gmail.com';
  // Add recipient email address
  oSmtp.AddRecipientEx( 'support@emailarchitect.net', 0);
  // Set email subject
  oSmtp.Subject := 'simple email from gmail account';
  // Set email body
  oSmtp.BodyText := 'this is a test email sent from Delphi using Gmail';

  // Gmail SMTP server address
  oSmtp.ServerAddr := 'smtp.gmail.com';

  // set 587 port, if you want to use 25 port, please change 587 to 25
  oSmtp.ServerPort := 587;

  // detect SSL/TLS automatically
  oSmtp.SSL_init();

  // Gmail user authentication should use your
  // Gmail email address as the user name.
  // For example: your email is "gmailid@gmail.com", then the user should be "gmailid@gmail.com"
  oSmtp.UserName := 'gmailid@gmail.com';
  oSmtp.Password := 'yourpassword';

  ShowMessage( 'start to send email ...' );
  if oSmtp.SendMail() = 0 then
    ShowMessage( 'email was sent successfully!' )
  else
    ShowMessage( 'failed to send email with the following error: '
    + oSmtp.GetLastErrDescription());
end;
end.

Gmail SMTP OAUTH

The Gmail IMAP and SMTP servers have been extended to support authorization via the industry-standard OAuth 2.0 protocol. Using OAUTH protocol, user can do authentication by Gmail Web OAuth instead of inputting user and password directly in application. This way is more secure, but a little bit complex.

Using Gmail SMTP OAUTH

Next Section

At next section I will introduce how to send email with Yahoo account in Delphi.

Appendix

Comments

If you have any comments or questions about above example codes, please click here to add your comments.