(Xojo Plugin) Download a Specific GMail Message into a Chilkat Email Object

Demonstrates how to download a GMail message into a Chilkat Email object.

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 success As Boolean

Dim http As New Chilkat.Http
http.AuthToken = "GMAIL-ACCESS-TOKEN"

// The id of the GMail message to download.
Dim id As String
id = "166e50fed0b9b0cb"
Dim userId As String
userId = "me"

success = http.SetUrlVar("userId","me")
success = http.SetUrlVar("id",id)

// Fetch the email.
Dim url As String
url = "https://www.googleapis.com/gmail/v1/users/{$userId}/messages/{$id}?format=raw"
Dim sbJson As New Chilkat.StringBuilder
success = http.DownloadSb(url,"utf-8",sbJson)
If (success <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim json As New Chilkat.JsonObject
success = json.LoadSb(sbJson)
json.EmitCompact = False

If (http.LastStatus <> 200) Then
    System.DebugLog(json.Emit())
    System.DebugLog("Failed.")
    Return
End If

// The returned JSON contains something like this:

// {
//   "id": "166e50fed0b9b0cb",
//   "threadId": "166e50fed0b9b0cb",
//   "labelIds": [
//     "CATEGORY_SOCIAL",
//     "INBOX"
//   ],
//   "snippet": "...",
//   "historyId": "582477",
//   "internalDate": "1541441317000",
//   "sizeEstimate": 28603,
//   "raw": "BASE64URL_CONTENT"
// }

// The RFC822 MIME of the email is contained in the "raw" as a base64URL encoded string.
// Let's decode and load into a Chilkat email object..
Dim sbRaw As New Chilkat.StringBuilder
success = json.StringOfSb("raw",sbRaw)
success = sbRaw.Decode("base64url","utf-8")

Dim email As New Chilkat.Email
success = email.SetFromMimeSb(sbRaw)

// Now we can use the email API to do whatever we desire..
System.DebugLog("From: " + email.FromAddress)
System.DebugLog("Subject: " + email.Subject)
// ...