VBScript

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. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

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

set http = CreateObject("Chilkat.Http")
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"
set sbJson = CreateObject("Chilkat.StringBuilder")
success = http.DownloadSb(url,"utf-8",sbJson)
If (success <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

set json = CreateObject("Chilkat.JsonObject")
success = json.LoadSb(sbJson)
json.EmitCompact = 0

If (http.LastStatus <> 200) Then
    outFile.WriteLine(json.Emit())
    outFile.WriteLine("Failed.")
    WScript.Quit
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..
set sbRaw = CreateObject("Chilkat.StringBuilder")
success = json.StringOfSb("raw",sbRaw)
success = sbRaw.Decode("base64url","utf-8")

set email = CreateObject("Chilkat.Email")
success = email.SetFromMimeSb(sbRaw)

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

outFile.Close