Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PureBasic) SES Send Plain-Text EmailSends a simple plain-text email to one or more recipients. See SES SendEmail for more information.
IncludeFile "CkXml.pb" IncludeFile "CkAuthAws.pb" IncludeFile "CkRest.pb" Procedure ChilkatExample() ; This example requires the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. rest.i = CkRest::ckCreate() If rest.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; Connect to the Amazon AWS REST server. ; such as https://email.us-west-2.amazonaws.com/ bTls.i = 1 port.i = 443 bAutoReconnect.i = 1 success.i = CkRest::ckConnect(rest,"email.us-west-2.amazonaws.com",port,bTls,bAutoReconnect) ; Provide AWS credentials for the REST call. authAws.i = CkAuthAws::ckCreate() If authAws.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkAuthAws::setCkAccessKey(authAws, "AWS_ACCESS_KEY") CkAuthAws::setCkSecretKey(authAws, "AWS_SECRET_KEY") ; the region should match our URL above.. CkAuthAws::setCkRegion(authAws, "us-west-2") CkAuthAws::setCkServiceName(authAws, "ses") CkRest::ckSetAuthAws(rest,authAws) CkRest::ckAddQueryParam(rest,"Action","SendEmail") CkRest::ckAddQueryParam(rest,"Message.Body.Text.Data","This is a sample plain-text email.") CkRest::ckAddQueryParam(rest,"Message.Body.Text.Charset","utf-8") CkRest::ckAddQueryParam(rest,"Message.Subject.Data","Sample plain-text SES email") CkRest::ckAddQueryParam(rest,"Message.Subject.Charset","utf-8") ; Add up to 100 TO, CC, and BCC recipients. ; If your SES account is still in the sandbox, you also must verify every recipient email address except for the recipients ; provided by the Amazon SES mailbox simulator. (See http://docs.aws.amazon.com/ses/latest/DeveloperGuide/mailbox-simulator.html) CkRest::ckAddQueryParam(rest,"Destination.ToAddresses.member.1","success@simulator.amazonses.com") ; Please do not test by sending email to Chilkat (Thanks!) ; Please do not test by sending email to Chilkat (Thanks!) ; Please do not test by sending email to Chilkat (Thanks!) CkRest::ckAddQueryParam(rest,"Destination.CcAddresses.member.1","support@chilkatsoft.com") CkRest::ckAddQueryParam(rest,"Destination.CcAddresses.member.2","somebody@yahoo.com") CkRest::ckAddQueryParam(rest,"Destination.BccAddresses.member.1","somebody@gmail.com") CkRest::ckAddQueryParam(rest,"Source","admin@chilkatdownload.com") ; Because there may be a large amount of data in the query params, use a POST ; where the params are sent in the body of the HTTP Request. responseXml.s = CkRest::ckFullRequestFormUrlEncoded(rest,"POST","/") If CkRest::ckLastMethodSuccess(rest) <> 1 Debug CkRest::ckLastErrorText(rest) CkRest::ckDispose(rest) CkAuthAws::ckDispose(authAws) ProcedureReturn EndIf ; A successful response will have a status code equal to 200. If CkRest::ckResponseStatusCode(rest) <> 200 Debug "response status code = " + Str(CkRest::ckResponseStatusCode(rest)) Debug "response status text = " + CkRest::ckResponseStatusText(rest) Debug "response header: " + CkRest::ckResponseHeader(rest) Debug "response body: " + responseXml CkRest::ckDispose(rest) CkAuthAws::ckDispose(authAws) ProcedureReturn EndIf ; Examine the successful XML response. xml.i = CkXml::ckCreate() If xml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::ckLoadXml(xml,responseXml) Debug CkXml::ckGetXml(xml) ; To get the MessageId Debug "MessageId: " + CkXml::ckChilkatPath(xml,"SendEmailResult|MessageId|*") ; A sample successful response: ; <?xml version="1.0" encoding="utf-8" ?> ; <SendEmailResponse xmlns="http://ses.amazonaws.com/doc/2010-12-01/"> ; <SendEmailResult> ; <MessageId>010101579081d2c1-043c693f-5a23-4c64-a8c1-66187d3725a0-000000</MessageId> ; </SendEmailResult> ; <ResponseMetadata> ; <RequestId>e2b5b480-8a4e-11e6-85cd-21b1f1f6d432</RequestId> ; </ResponseMetadata> ; </SendEmailResponse> CkRest::ckDispose(rest) CkAuthAws::ckDispose(authAws) CkXml::ckDispose(xml) ProcedureReturn EndProcedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.