Delphi DLL

SMTP Connect and Authenticate

Demonstrates how to connect and then authenticate with an SMTP server. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, MailMan;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
mailman: HCkMailMan;

begin
success := False;

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

mailman := CkMailMan_Create();

CkMailMan_putSmtpHost(mailman,'smtp.mail.us-west-2.awsapps.com');
CkMailMan_putSmtpSsl(mailman,True);
CkMailMan_putSmtpPort(mailman,465);

success := CkMailMan_SmtpConnect(mailman);
if (success = False) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
    Exit;
  end;

CkMailMan_putSmtpUsername(mailman,'john@example.com');
CkMailMan_putSmtpPassword(mailman,'the_password');

success := CkMailMan_SmtpAuthenticate(mailman);
if (success = False) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
    Exit;
  end;

Memo1.Lines.Add('Authenticated!');

Memo1.Lines.Add(CkMailMan__smtpSessionLog(mailman));

// Sample session log:

// 220 smtp.us-west-2.mail.awsapps.com ESMTP Amazon WorkMail SMTP Service
// EHLO SLICE<CRLF>
// 250-smtp.us-west-2.mail.awsapps.com
// 250-8BITMIME
// 250-AUTH PLAIN LOGIN
// 250 Ok
// AUTH LOGIN<CRLF>
// 334 VXNlcm5hbWU6
// am9obkBleGFtcGxlLmNvbQ==<CRLF>
// 334 UGFzc3dvcmQ6
// {PasswordOrCredentials}
// 235 Authentication successful.

CkMailMan_Dispose(mailman);

end;