![]() |
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) Insert Email into GMail FolderDirectly inserts a message into only this user's mailbox similar to IMAP APPEND, bypassing most scanning and classification. Does not send a message. This example will create a Chilkat Email object and upload/insert it into GMail. Then adds the "INBOX" label to the email to make it appear in INBOX Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loEmail LOCAL loSbMime LOCAL loHttp LOCAL loResp LOCAL lcUrl LOCAL loJson LOCAL lcId LOCAL loJson2 lnSuccess = 0 * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loEmail = CreateObject('Chilkat.Email') * This example chooses to load an email from a file. lnSuccess = loEmail.LoadEml("qa_data/eml/testEmail.eml") IF (lnSuccess = 0) THEN ? loEmail.LastErrorText RELEASE loEmail CANCEL ENDIF * Get the email as MIME. loSbMime = CreateObject('Chilkat.StringBuilder') loEmail.GetMimeSb(loSbMime) loHttp = CreateObject('Chilkat.Http') loResp = CreateObject('Chilkat.HttpResponse') loHttp.AuthToken = "GMAIL-ACCESS-TOKEN" * Upload to GMail (does not send, but just inserts). * IMPORTANT: After uploading/inserting, you won't see the message in the Inbox. * In your web browser, if you go to "All Mail", you will see it. lcUrl = "https://www.googleapis.com/upload/gmail/v1/users/me/messages?uploadType=media" loHttp.UncommonOptions = "SendGzipped" lnSuccess = loHttp.HttpSb("POST",lcUrl,loSbMime,"utf-8","message/rfc822",loResp) IF (lnSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loEmail RELEASE loSbMime RELEASE loHttp RELEASE loResp CANCEL ENDIF loHttp.UncommonOptions = "" * A status code of 200 indicates success. ? "Response status code: " + STR(loResp.StatusCode) ? "Response body:" ? loResp.BodyStr * The response body contains JSON. * A sample successful JSON response: * { * "id": "166f583051d36144", * "threadId": "166f5529e079a456" * } loJson = CreateObject('Chilkat.JsonObject') loJson.Load(loResp.BodyStr) lcId = loJson.StringOf("id") * Add the Inbox label to the inserted email so that it appears in Inbox. ? "---- Adding the Inbox label to the newly inserted email. ----" * Create the following JSON to be sent in a POST to modify labels for this message. * { * "addLabelIds": [ * "INBOX" * ] * } loJson2 = CreateObject('Chilkat.JsonObject') loJson2.UpdateString("addLabelIds[0]","INBOX") loHttp.SetUrlVar("id",lcId) lcUrl = "https://www.googleapis.com/gmail/v1/users/me/messages/{$id}/modify" lnSuccess = loHttp.HttpJson("POST",lcUrl,loJson2,"application/json",loResp) IF (lnSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loEmail RELEASE loSbMime RELEASE loHttp RELEASE loResp RELEASE loJson RELEASE loJson2 CANCEL ENDIF * A status code of 200 indicates success. ? "Response status code: " + STR(loResp.StatusCode) ? "Response body:" ? loResp.BodyStr * The response body contains JSON. * A sample successful JSON response: * { * "id": "166f583051d36144", * "threadId": "166f583051d36144", * "labelIds": [ * "INBOX" * ] * } RELEASE loEmail RELEASE loSbMime RELEASE loHttp RELEASE loResp RELEASE loJson RELEASE loJson2 |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.