![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Tcl) Create GMail DraftDemonstrates how to create a new GMail draft email. Note: This example requires Chilkat v11.0.0 or greater.
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 |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.