Lianja

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

Lianja

llSuccess = .F.

// 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 = .F.) then
    ? loEmail.LastErrorText
    release loEmail
    return
endif

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

loHttp = createobject("CkHttp")
loResp = createobject("CkHttpResponse")

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"
llSuccess = loHttp.HttpSb("POST",lcUrl,loSbMime,"utf-8","message/rfc822",loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loEmail
    release loSbMime
    release loHttp
    release loResp
    return
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("CkJsonObject")
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("CkJsonObject")
loJson2.UpdateString("addLabelIds[0]","INBOX")

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

llSuccess = loHttp.HttpJson("POST",lcUrl,loJson2,"application/json",loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loEmail
    release loSbMime
    release loHttp
    release loResp
    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 loEmail
release loSbMime
release loHttp
release loResp
release loJson
release loJson2