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
(Visual FoxPro) Create GMail DraftDemonstrates how to create a new GMail draft email.
LOCAL lnSuccess LOCAL loEmail LOCAL loSbMime LOCAL loJson LOCAL loHttp LOCAL lcUrl LOCAL loResp * 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. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email') loEmail = CreateObject('Chilkat.Email') loEmail.Subject = "This is a test GMail email created using Chilkat." loEmail.Charset = "utf-8" loEmail.AddPlainTextAlternativeBody("This is a test") loEmail.AddHtmlAlternativeBody("<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. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder') loSbMime = CreateObject('Chilkat.StringBuilder') loEmail.GetMimeSb(loSbMime) loSbMime.Encode("base64url","utf-8") * The body of the HTTP request will be JSON.. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJson = CreateObject('Chilkat.JsonObject') loJson.UpdateSb("message.raw",loSbMime) * Upload the email to GMail as a draft. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http') loHttp = CreateObject('Chilkat.Http') loHttp.AuthToken = "GMAIL-ACCESS-TOKEN" lcUrl = "https://www.googleapis.com/gmail/v1/users/me/drafts" loResp = loHttp.PostJson3(lcUrl,"application/json",loJson) IF (loHttp.LastMethodSuccess <> 1) THEN ? loHttp.LastErrorText RELEASE loEmail RELEASE loSbMime RELEASE loJson RELEASE loHttp CANCEL ENDIF * A status code of 200 indicates success. ? "Response status code: " + STR(loResp.StatusCode) ? "Response body:" ? loResp.BodyStr RELEASE loResp * 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" * ] * } * } RELEASE loEmail RELEASE loSbMime RELEASE loJson RELEASE loHttp |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.