(Tcl) SendGrid -- Send Email with Attachment

See more SendGrid Examples

Sends an email with an attachment.

For more information, see https://sendgrid.com/docs/for-developers/sending-email/curl-examples/#sending-a-basic-email-with-attachment

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# Implements the following CURL command:

# curl --request POST \
#   --url https://api.sendgrid.com/v3/mail/send \
#   --header 'authorization: Bearer YOUR_API_KEY' \
#   --header 'Content-Type: application/json' \
#   --data '{"personalizations": [{"to": [{"email": "recipient@example.com"}]}],"from": {"email": "sender@example.com"},"subject":"Hello, World!","content": [{"type": "text/html","value": "Hey,<br>Please find attachment."}], "attachments": [{"content": "BASE64_ENCODED_CONTENT", "type": "text/plain", "filename": "attachment.txt"}]}'

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

# Use this online tool to generate code from sample JSON:
# Generate Code to Create JSON

# The following JSON is sent in the request body.

# {
#   "personalizations": [
#     {
#       "to": [
#         {
#           "email": "recipient@example.com"
#         }
#       ]
#     }
#   ],
#   "from": {
#     "email": "sender@example.com"
#   },
#   "subject": "Hello, World!",
#   "content": [
#     {
#       "type": "text/html",
#       "value": "Hey,<br>Please find attachment."
#     }
#   ],
#   "attachments": [
#     {
#       "content": "BASE64_ENCODED_CONTENT",
#       "type": "text/plain",
#       "filename": "attachment.txt"
#     }
#   ]
# }

set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "personalizations[0].to[0].email" "recipient@example.com"
CkJsonObject_UpdateString $json "from.email" "sender@example.com"
CkJsonObject_UpdateString $json "subject" "Hello, World!"
CkJsonObject_UpdateString $json "content[0].type" "text/html"
CkJsonObject_UpdateString $json "content[0].value" "Hey,<br>Please find attachment."

# Load a file to be attached.
set bd [new_CkBinData]

set success [CkBinData_LoadFile $bd "qa_data/pdf/hello.pdf"]

CkJsonObject_UpdateString $json "attachments[0].content" [CkBinData_getEncoded $bd "base64"]
CkJsonObject_UpdateString $json "attachments[0].type" "application/pdf"
CkJsonObject_UpdateString $json "attachments[0].filename" "hello.pdf"

CkHttp_SetRequestHeader $http "Content-Type" "application/json"
# Adds the "Authorization: Bearer YOUR_API_KEY" header.
CkHttp_put_AuthToken $http "YOUR_API_KEY"

# resp is a CkHttpResponse
set resp [CkHttp_PostJson3 $http "https://api.sendgrid.com/v3/mail/send" "application/json" $json]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    delete_CkBinData $bd
    exit
}

set respStatusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode != 202} then {
    puts "Response Header:"
    puts [CkHttpResponse_header $resp]
    puts "Response Body:"
    puts [CkHttpResponse_bodyStr $resp]
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkJsonObject $json
    delete_CkBinData $bd
    exit
}

delete_CkHttpResponse $resp

puts "Success."

delete_CkHttp $http
delete_CkJsonObject $json
delete_CkBinData $bd