B4X

Download a Specific GMail Message into a Chilkat Email Object

See more GMail REST API Examples

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

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")
http.AuthToken = "GMAIL-ACCESS-TOKEN"

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

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

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


Dim json As ChilkatJsonObject
json.Initialize
json.LoadSb(sbJson)
json.EmitCompact = False

If http.LastStatus <> 200 Then
    Log(json.Emit)
    Log("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 ChilkatStringBuilder
sbRaw.Initialize
json.StringOfSb("raw", sbRaw)
sbRaw.Decode("base64url", "utf-8")

Dim email As ChilkatEmail
email.Initialize
email.SetFromMimeSb(sbRaw)

'  Now we can use the email API to do whatever we desire..
Log("From: " & email.FromAddress)
Log("Subject: " & email.Subject)
'  ...