GMail SMTP port 587

Download Chilkat Email ActiveX

Send email using GMail's SMTP server on port 587 (SSL via STARTTLS).

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMAILLib2_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
success: Integer;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;

begin

mailman := TChilkatMailMan2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := mailman.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Component unlock failed');

  end;

//  Use the GMail SMTP server
mailman.SmtpHost := 'smtp.gmail.com';
mailman.SmtpPort := 587;
mailman.StartTLS := 1;

//  Set the SMTP login/password.
mailman.SmtpUsername := 'chilkat.support';
mailman.SmtpPassword := 'myPassword';

//  Create a new email object
email := CoChilkatEmail2.Create();

email.Subject := 'This is a test';
email.Body := 'This is a test';
email.From := 'Chilkat Support <chilkat.support@gmail.com>';
email.AddTo('Chilkat','support@chilkatsoft.com');

success := mailman.SendEmail(email);
if (success <> 1) then
  begin
    ShowMessage(mailman.LastErrorText);

  end;

ShowMessage('Mail Sent!');
end;