Tcl

SendGrid Send Email with Additional BCC Recipient

See more SendGrid Examples

Sends an email to a recipient, but also with an additional BCC recipient. Tcl

load ./chilkat.dll

set success 0

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

set http [new_CkHttp]

# The following JSON is sent in the request body.

# {
#   "personalizations": [
#     {
#       "to": [
#         {
#           "email": "recipient@example.com"
#         }
#       ]
#       "bcc": [
#         {
#           "email": "recipient2@example2.com"
#         }
#       ]
#     }
#   ],
#   "from": {
#     "email": "sendeexampexample@example.com"
#   },
#   "subject": "Hello, World!",
#   "content": [
#     {
#       "type": "text/plain",
#       "value": "Heya!"
#     }
#   ]
# }

set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "personalizations[0].to[0].email" "recipient@example.com"
CkJsonObject_UpdateString $json "personalizations[0].bcc[0].email" "recipient2@example2.com"
CkJsonObject_UpdateString $json "from.email" "sendeexampexample@example.com"
CkJsonObject_UpdateString $json "subject" "Hello, World!"
CkJsonObject_UpdateString $json "content[0].type" "text/plain"
CkJsonObject_UpdateString $json "content[0].value" "Heya!"

# Adds the "Authorization: Bearer YOUR_API_KEY" header.
CkHttp_put_AuthToken $http "YOUR_API_KEY"

set resp [new_CkHttpResponse]

set success [CkHttp_HttpJson $http "POST" "https://api.sendgrid.com/v3/mail/send" $json "application/json" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    delete_CkHttpResponse $resp
    exit
}

if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
} else {
    puts "response status code: [CkHttpResponse_get_StatusCode $resp]"
    # Display the response.
    # If successful, the response code is 202 and the response body string is empty.
    # (The response body string may also be empty for error response codes.)
    puts [CkHttpResponse_bodyStr $resp]
}


delete_CkHttp $http
delete_CkJsonObject $json
delete_CkHttpResponse $resp