DataFlex
DataFlex
SendRawEmail (HTML Email with PDF Attachment)
See more Amazon SES Examples
Demonstrates how to use the SES SendRawEmail action to send an email with an attachment. Note: The total size of an SES email cannot exceed 10MB.See SES SendRawEmail for more information.
Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoEmail
String sContentType
String sMimeStr
Handle hoCrypt
String sMimeBase64
Handle hoRest
Boolean iBTls
Integer iPort
Boolean iBAutoReconnect
Variant vAuthAws
Handle hoAuthAws
String sResponseXml
Handle hoXml
String sTemp1
Integer iTemp1
Boolean bTemp1
Move False To iSuccess
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
// Let's first prepare the email to be sent..
Get Create (RefClass(cComChilkatEmail)) To hoEmail
If (Not(IsComObjectCreated(hoEmail))) Begin
Send CreateComObject of hoEmail
End
Set ComCharset Of hoEmail To "utf-8"
Set ComSubject Of hoEmail To "Test email with PDF attachment."
Send ComSetHtmlBody To hoEmail "<html><body><p>This is a test <b>HTML email with a PDF attachment</b></p></body></html>"
// The AddFileAttachment method returns the content-type selected based on the
// file extension. This example has no need of using the return value..
Get ComAddFileAttachment Of hoEmail "qa_data/pdf/fishing.pdf" To sContentType
Get ComLastMethodSuccess Of hoEmail To bTemp1
If (bTemp1 <> True) Begin
Get ComLastErrorText Of hoEmail To sTemp1
Showln sTemp1
Procedure_Return
End
// Add the From header, and some recipients.
// The From address should be an email address verified for use
// as a sender for your Amazon SES account.
// The From address will also be the Source parameter for the SES SendRawEmail request.
Set ComFrom Of hoEmail To "Chilkat Software <admin@chilkatdownload.com>"
// Add recipients...
// Note: We DO NOT add BCC recipients to the email. A BCC address should not be
// present in the MIME header of the email (otherwise it would not be "blind" because
// other recipients would be able to see it).
// These same addresses will be added as parameters to the SendRawEmail request.
// (BCC addresses are added as parameters at that time.)
Get ComAddTo Of hoEmail "Mr. Simulator" "success@simulator.amazonses.com" To iSuccess
Get ComAddCC Of hoEmail "Chilkat Support" "support@chilkatsoft.com" To iSuccess
Get ComAddCC Of hoEmail "Some Yahoo" "somebody@yahoo.com" To iSuccess
// Get the MIME of the email to be sent.
Get ComGetMime Of hoEmail To sMimeStr
// We'll need the MIME base64 encoded for the SES REST request..
Get Create (RefClass(cComChilkatCrypt2)) To hoCrypt
If (Not(IsComObjectCreated(hoCrypt))) Begin
Send CreateComObject of hoCrypt
End
Get ComEncodeString Of hoCrypt sMimeStr "utf-8" "base64" To sMimeBase64
// OK.. our MIME email is prepared. Now use Chilkat REST to send it..
Get Create (RefClass(cComChilkatRest)) To hoRest
If (Not(IsComObjectCreated(hoRest))) Begin
Send CreateComObject of hoRest
End
// Connect to the Amazon AWS REST server.
// such as https://email.us-west-2.amazonaws.com/
Move True To iBTls
Move 443 To iPort
Move True To iBAutoReconnect
Get ComConnect Of hoRest "email.us-west-2.amazonaws.com" iPort iBTls iBAutoReconnect To iSuccess
// Provide AWS credentials for the REST call.
Get Create (RefClass(cComChilkatAuthAws)) To hoAuthAws
If (Not(IsComObjectCreated(hoAuthAws))) Begin
Send CreateComObject of hoAuthAws
End
Set ComAccessKey Of hoAuthAws To "AWS_ACCESS_KEY"
Set ComSecretKey Of hoAuthAws To "AWS_SECRET_KEY"
// the region should match our URL above..
Set ComRegion Of hoAuthAws To "us-west-2"
Set ComServiceName Of hoAuthAws To "ses"
Get pvComObject of hoAuthAws to vAuthAws
Get ComSetAuthAws Of hoRest vAuthAws To iSuccess
Get ComAddQueryParam Of hoRest "Action" "SendRawEmail" To iSuccess
Get ComAddQueryParam Of hoRest "RawMessage.Data" sMimeBase64 To iSuccess
// 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)
Get ComAddQueryParam Of hoRest "Destination.ToAddresses.member.1" "success@simulator.amazonses.com" To iSuccess
// Please do not test by sending email to Chilkat (Thank You!)
// Please do not test by sending email to Chilkat (Thank You!)
// Please do not test by sending email to Chilkat (Thank You!)
Get ComAddQueryParam Of hoRest "Destination.CcAddresses.member.1" "support@chilkatsoft.com" To iSuccess
Get ComAddQueryParam Of hoRest "Destination.CcAddresses.member.2" "somebody@yahoo.com" To iSuccess
Get ComAddQueryParam Of hoRest "Destination.BccAddresses.member.1" "somebody@gmail.com" To iSuccess
Get ComAddQueryParam Of hoRest "Source" "admin@chilkatdownload.com" To iSuccess
// 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.
Get ComFullRequestFormUrlEncoded Of hoRest "POST" "/" To sResponseXml
Get ComLastMethodSuccess Of hoRest To bTemp1
If (bTemp1 <> True) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
// A successful response will have a status code equal to 200.
Get ComResponseStatusCode Of hoRest To iTemp1
If (iTemp1 <> 200) Begin
Get ComResponseStatusCode Of hoRest To iTemp1
Showln "response status code = " iTemp1
Get ComResponseStatusText Of hoRest To sTemp1
Showln "response status text = " sTemp1
Get ComResponseHeader Of hoRest To sTemp1
Showln "response header: " sTemp1
Showln "response body: " sResponseXml
Procedure_Return
End
// Examine the successful XML response.
Get Create (RefClass(cComChilkatXml)) To hoXml
If (Not(IsComObjectCreated(hoXml))) Begin
Send CreateComObject of hoXml
End
Get ComLoadXml Of hoXml sResponseXml To iSuccess
Get ComGetXml Of hoXml To sTemp1
Showln sTemp1
// To get the MessageId
Get ComChilkatPath Of hoXml "SendEmailResult|MessageId|*" To sTemp1
Showln "MessageId: " sTemp1
// 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>
End_Procedure