Tcl

Mailgun Send Simple Email

See more Mailgun Examples

Send a simple email using Mailgun. 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]

# Implements the following CURL command:

# curl -s --user 'api:SENDING_API_KEY' 
# 	 https://api.mailgun.net/v3/YOUR_DOMAIN_NAME/messages 
# 	 -F from='Your Name <mailgun@YOUR_DOMAIN_NAME>' 
# 	 -F to='Joe Example <joe@example.com>' 
# 	 -F subject='Hello Joe Example' 
# 	 -F text='Congratulations Joe Example, you just sent an email with Mailgun!  You are truly awesome!'

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

CkHttp_put_Login $http "api"
CkHttp_put_Password $http "sending_api_key"#  Replace with your actual sending API key.

set req [new_CkHttpRequest]

CkHttpRequest_put_HttpVerb $req "POST"
CkHttpRequest_put_Path $req "/v3/YOUR_DOMAIN_NAME/messages"
CkHttpRequest_put_ContentType $req "multipart/form-data"

# Change YOUR_DOMAIN_NAME to something like "mg.your-domain.com".
CkHttpRequest_AddParam $req "from" "Your Name <mailgun@YOUR_DOMAIN_NAME>"
CkHttpRequest_AddParam $req "to" "Joe Example <joe@example.com>"
CkHttpRequest_AddParam $req "subject" "Hello Joe Example"
CkHttpRequest_AddParam $req "text" "Congratulations Joe Example, you just sent an email with Mailgun!  You are truly awesome!"

set resp [new_CkHttpResponse]

set success [CkHttp_HttpSReq $http "api.mailgun.net" 443 1 $req $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkHttpResponse $resp
    exit
}

set sbResponseBody [new_CkStringBuilder]

CkHttpResponse_GetBodySb $resp $sbResponseBody
set jResp [new_CkJsonObject]

CkJsonObject_LoadSb $jResp $sbResponseBody
CkJsonObject_put_EmitCompact $jResp 0

puts "Response Body:"
puts [CkJsonObject_emit $jResp]

set respStatusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttpResponse_header $resp]
    puts "Failed."
    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkHttpResponse $resp
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    exit
}

# Sample JSON response:
# (Sample code for parsing the JSON response is shown below)

# {
#   "id": "<20210429234809.1.2D550E1C94D3D98F@sandbox0e542e4c577f4bbb98c8bf6b6bca727b.mailgun.org>",
#   "message": "Queued. Thank you."
# }

# Sample code for parsing the JSON response...
# Use the following online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON

set id [CkJsonObject_stringOf $jResp "id"]
set message [CkJsonObject_stringOf $jResp "message"]

delete_CkHttp $http
delete_CkHttpRequest $req
delete_CkHttpResponse $resp
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp