(Excel) Download a Specific GMail Message into a Chilkat Email Object

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

Download Excel Class Modules Chilkat Excel Class Modules

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

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

' The id of the GMail message to download.

id = "166e50fed0b9b0cb"

userId = "me"

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

' Fetch the email.

url = "https://www.googleapis.com/gmail/v1/users/{$userId}/messages/{$id}?format=raw"
Dim sbJson As Chilkat.StringBuilder
Set sbJson = Chilkat.NewStringBuilder
success = http.DownloadSb(url,"utf-8",sbJson)
If (success <> True) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

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

If (http.LastStatus <> 200) Then
    Debug.Print json.Emit()
    Debug.Print "Failed."
    Exit Sub
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 Chilkat.StringBuilder
Set sbRaw = Chilkat.NewStringBuilder
success = json.StringOfSb("raw",sbRaw)
success = sbRaw.Decode("base64url","utf-8")

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

' Now we can use the email API to do whatever we desire..
Debug.Print "From: "; email.FromAddress
Debug.Print "Subject: "; email.Subject
' ...