(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim email As New Chilkat.Email

// This example chooses to load an email from a file.
Dim success As Boolean
success = email.LoadEml("qa_data/eml/testEmail.eml")
If (success <> True) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

// Get the email as MIME.
Dim sbMime As New Chilkat.StringBuilder
success = email.GetMimeSb(sbMime)

Dim http As New Chilkat.Http
http.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.

Dim url As String
url = "https://www.googleapis.com/upload/gmail/v1/users/me/messages?uploadType=media"
Dim sendGzipped As Boolean
sendGzipped = True
Dim resp As Chilkat.HttpResponse
resp = http.PTextSb("POST",url,sbMime,"utf-8","message/rfc822",False,sendGzipped)
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

// A status code of 200 indicates success.
System.DebugLog("Response status code: " + Str(resp.StatusCode))
System.DebugLog("Response body:")
System.DebugLog(resp.BodyStr)

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

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

Dim json As New Chilkat.JsonObject
success = json.Load(resp.BodyStr)
Dim id As String
id = json.StringOf("id")

// Add the Inbox label to the inserted email so that it appears in Inbox.
System.DebugLog("---- 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"
//     ]
// }

Dim json2 As New Chilkat.JsonObject
success = json2.UpdateString("addLabelIds[0]","INBOX")

success = http.SetUrlVar("id",id)
url = "https://www.googleapis.com/gmail/v1/users/me/messages/{$id}/modify"

resp = http.PostJson3(url,"application/json",json2)
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

// A status code of 200 indicates success.
System.DebugLog("Response status code: " + Str(resp.StatusCode))
System.DebugLog("Response body:")
System.DebugLog(resp.BodyStr)

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

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