Delphi interface to Amazon SES (Simple Email Service)
Example uses...
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;
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;
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;