Visual FoxPro

Insert Email into GMail Folder

See more GMail REST API Examples

Directly 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

Visual FoxPro

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