xxrepo / ksses

Delphi interface to Amazon SES (Simple Email Service)

ksSES

Delphi interface to Amazon SES (Simple Email Service)

Example uses...

Vefify a new email address

procedure TForm1.Button1Click(Sender: TObject);
var
  ASES: IksSES;
begin
  // create the interface
  ASES := CreateSes(sesEndpointIreland, 'YOUR_PUBLIC_KEY', 'YOUR_PRIVATE_KEY');
// verify email identity...
  ASES.VerifyEmailIdentity('[email protected]');
end;

Get all verified senders

procedure TForm1.Button1Click(Sender: TObject);
var
  ASES: IksSES;
  ASenders: TStrings;
begin
  // create the interface
  ASES := CreateSes(sesEndpointIreland, 'YOUR_PUBLIC_KEY', 'YOUR_PRIVATE_KEY');

  ASenders := TStringList.Create;
  try
    // get verified senders...
    ASES.GetSenders(ASenders, True);
    ShowMessage(ASenders.Text);
  finally
    ASenders.Free;
  end;
end;

Send an email

procedure TForm1.Button1Click(Sender: TObject);
const
  CR = #13#10;
var
  ASES: IksSES;
begin
  // create the interface
  ASES := CreateSes(sesEndpointIreland, 'YOUR_PUBLIC_KEY', 'YOUR_PRIVATE_KEY');

  // send an email...
  ASes.SendEmail('[email protected]',
                 '[email protected]',
                 'the subject',
                 'first line of the body :-)'+CR+CR+'second line of the body');
end;