![]() |
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
(VBScript) 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.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) 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 = CreateObject("Chilkat.Email") ' The From name/address don't need to be specified. ' GMail will automatically use your Gmail address if the following 2 lines are omitted. email.FromName = "My Name" email.FromAddress = "my_account_name@gmail.com" success = email.AddTo("John Smith","somebody@somewhere.com") ' To add more recipients, make additional calls to AddTo or AddCC, one per recipient... email.Subject = "This is a test GMail email created using Chilkat." email.Charset = "utf-8" success = email.AddPlainTextAlternativeBody("This is a test") ' Create an HTML email body with an embedded image. cid = email.AddRelatedFile("qa_data/jpg/starfish.jpg") set sbHtml = CreateObject("Chilkat.StringBuilder") success = sbHtml.Append("<html><body>This is a <b>test</b><br><img src=""cid:STARFISH_CID""/></body></html>") numReplacements = sbHtml.Replace("STARFISH_CID",cid) success = email.AddHtmlAlternativeBody(sbHtml.GetAsString()) ' 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 = CreateObject("Chilkat.StringBuilder") success = email.GetMimeSb(sbMime) success = sbMime.Encode("base64url","utf-8") ' The body of the HTTP request will be JSON.. set json = CreateObject("Chilkat.JsonObject") success = json.UpdateSb("raw",sbMime) ' Send the email... set http = CreateObject("Chilkat.Http") http.AuthToken = "GMAIL-ACCESS-TOKEN" url = "https://www.googleapis.com/gmail/v1/users/me/messages/send" set resp = CreateObject("Chilkat.HttpResponse") success = http.HttpJson("POST",url,json,"application/json",resp) If (success = 0) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If ' A status code of 200 indicates success. outFile.WriteLine("Response status code: " & resp.StatusCode) outFile.WriteLine("Response body:") outFile.WriteLine(resp.BodyStr) ' 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" ' ] ' } outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.