![]() |
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) Send GMail using REST APISee more GMail REST API ExamplesDemonstrates how to send an email using the GMail REST API.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] # The From name/address don't need to be specified. # GMail will automatically use your Gmail address if the following 2 lines are omitted. CkEmail_put_FromName $email "My Name" CkEmail_put_FromAddress $email "my_account_name@gmail.com" CkEmail_AddTo $email "John Smith" "somebody@somewhere.com" # To add more recipients, make additional calls to AddTo or AddCC, one per recipient... 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" # Create an HTML email body with an embedded image. set cid [CkEmail_addRelatedFile $email "qa_data/jpg/starfish.jpg"] set sbHtml [new_CkStringBuilder] CkStringBuilder_Append $sbHtml "<html><body>This is a <b>test</b><br><img src=\"cid:STARFISH_CID\"/></body></html>" set numReplacements [CkStringBuilder_Replace $sbHtml "STARFISH_CID" $cid] CkEmail_AddHtmlAlternativeBody $email [CkStringBuilder_getAsString $sbHtml] # OK.. we now have an HTML email with an embedded JPG image # 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 "raw" $sbMime # Send the email... set http [new_CkHttp] CkHttp_put_AuthToken $http "GMAIL-ACCESS-TOKEN" set url "https://www.googleapis.com/gmail/v1/users/me/messages/send" 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 $sbHtml 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": "166f0d4ac39e50bf", # "threadId": "166f0d4ac39e50bf", # "labelIds": [ # "SENT" # ] # } delete_CkEmail $email delete_CkStringBuilder $sbHtml delete_CkStringBuilder $sbMime delete_CkJsonObject $json delete_CkHttp $http delete_CkHttpResponse $resp |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.