(Lianja) Insert Email into GMail Folder

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loEmail = createobject("CkEmail")

// This example chooses to load an email from a file.
llSuccess = loEmail.LoadEml("qa_data/eml/testEmail.eml")
if (llSuccess <> .T.) then
    ? loEmail.LastErrorText
    release loEmail
    return
endif

// Get the email as MIME.
loSbMime = createobject("CkStringBuilder")
loEmail.GetMimeSb(loSbMime)

loHttp = createobject("CkHttp")
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"
llSendGzipped = .T.
loResp = loHttp.PTextSb("POST",lcUrl,loSbMime,"utf-8","message/rfc822",.F.,llSendGzipped)
if (loHttp.LastMethodSuccess <> .T.) then
    ? loHttp.LastErrorText
    release loEmail
    release loSbMime
    release loHttp
    return
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": "166f5529e079a456"
// }

loJson = createobject("CkJsonObject")
loJson.Load(loResp.BodyStr)
lcId = loJson.StringOf("id")

release loResp

// 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("CkJsonObject")
loJson2.UpdateString("addLabelIds[0]","INBOX")

loHttp.SetUrlVar("id",lcId)
lcUrl = "https://www.googleapis.com/gmail/v1/users/me/messages/{$id}/modify"

loResp = loHttp.PostJson3(lcUrl,"application/json",loJson2)
if (loHttp.LastMethodSuccess <> .T.) then
    ? loHttp.LastErrorText
    release loEmail
    release loSbMime
    release loHttp
    release loJson
    release loJson2
    return
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 loResp


release loEmail
release loSbMime
release loHttp
release loJson
release loJson2