Tcl
Create GMail Draft

Demonstrates how to create a new GMail draft email.
Chilkat Tcl Downloads

Tcl

load ./chilkat.dll

set success 0

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

# Use the Chilkat Email API to create or load an email.
set email [new_CkEmail]

CkEmail_put_Subject $email "This is a test GMail email created using Chilkat."
CkEmail_put_Charset $email "utf-8"
CkEmail_AddPlainTextAlternativeBody $email "This is a test"
CkEmail_AddHtmlAlternativeBody $email "<html><body><p>This is a <b>test</b></body></html>"

# We'll need to get the full MIME of the email encoded to a base64url string.
set sbMime [new_CkStringBuilder]

CkEmail_GetMimeSb $email $sbMime
CkStringBuilder_Encode $sbMime "base64url" "utf-8"

# The body of the HTTP request will be JSON..
set json [new_CkJsonObject]

CkJsonObject_UpdateSb $json "message.raw" $sbMime

# Upload the email to GMail as a draft.
set http [new_CkHttp]

CkHttp_put_AuthToken $http "GMAIL-ACCESS-TOKEN"

set url "https://www.googleapis.com/gmail/v1/users/me/drafts"
set resp [new_CkHttpResponse]

set success [CkHttp_HttpJson $http "POST" $url $json "application/json" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkEmail $email
    delete_CkStringBuilder $sbMime
    delete_CkJsonObject $json
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    exit
}

# A status code of 200 indicates success.
puts "Response status code: [CkHttpResponse_get_StatusCode $resp]"
puts "Response body:"
puts [CkHttpResponse_bodyStr $resp]

# The response body contains JSON.
# Use the online tool at Generate JSON Parsing Code
# to generate JSON parsing code.

# A sample successful JSON response:

# {
#  "id": "r-2607584557788895307",
#  "message": {
#   "id": "166f09932c662e93",
#   "threadId": "166f09932c662e93",
#   "labelIds": [
#    "DRAFT"
#   ]
#  }
# }

delete_CkEmail $email
delete_CkStringBuilder $sbMime
delete_CkJsonObject $json
delete_CkHttp $http
delete_CkHttpResponse $resp