Xbase++ Requires Chilkat v11.0.0+

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

Xbase++

LOCAL nSuccess
LOCAL oEmail
LOCAL oSbMime
LOCAL oHttp
LOCAL oResp
LOCAL cUrl
LOCAL oJson
LOCAL cId
LOCAL oJson2

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oEmail := CreateObject("Chilkat.Email")

//  This example chooses to load an email from a file.
nSuccess := oEmail:LoadEml("qa_data/eml/testEmail.eml")
IF (nSuccess == 0)
    ? oEmail:LastErrorText
    oEmail:destroy()
    RETURN
ENDIF

//  Get the email as MIME.
oSbMime := CreateObject("Chilkat.StringBuilder")
oEmail:GetMimeSb(oSbMime)

oHttp := CreateObject("Chilkat.Http")
oResp := CreateObject("Chilkat.HttpResponse")

oHttp: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.

cUrl := "https://www.googleapis.com/upload/gmail/v1/users/me/messages?uploadType=media"
oHttp:UncommonOptions := "SendGzipped"
nSuccess := oHttp:HttpSb("POST", cUrl, oSbMime, "utf-8", "message/rfc822", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oEmail:destroy()
    oSbMime:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

oHttp:UncommonOptions := ""

//  A status code of 200 indicates success.
? "Response status code: " + Str(oResp:StatusCode)
? "Response body:"
? oResp:BodyStr

//  The response body contains JSON.
//  A sample successful JSON response:

//  {
//   "id": "166f583051d36144",
//   "threadId": "166f5529e079a456"
//  }

oJson := CreateObject("Chilkat.JsonObject")
oJson:Load(oResp:BodyStr)
cId := oJson: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"
//      ]
//  }

oJson2 := CreateObject("Chilkat.JsonObject")
oJson2:UpdateString("addLabelIds[0]", "INBOX")

oHttp:SetUrlVar("id", cId)
cUrl := "https://www.googleapis.com/gmail/v1/users/me/messages/{$id}/modify"

nSuccess := oHttp:HttpJson("POST", cUrl, oJson2, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oEmail:destroy()
    oSbMime:destroy()
    oHttp:destroy()
    oResp:destroy()
    oJson:destroy()
    oJson2:destroy()
    RETURN
ENDIF

//  A status code of 200 indicates success.
? "Response status code: " + Str(oResp:StatusCode)
? "Response body:"
? oResp:BodyStr

//  The response body contains JSON.
//  A sample successful JSON response:

//  {
//   "id": "166f583051d36144",
//   "threadId": "166f583051d36144",
//   "labelIds": [
//    "INBOX"
//   ]
//  }

oEmail:destroy()
oSbMime:destroy()
oHttp:destroy()
oResp:destroy()
oJson:destroy()
oJson2:destroy()