(Visual FoxPro) Download a Specific GMail Message into a Chilkat Email Object

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcId
LOCAL lcUserId
LOCAL lcUrl
LOCAL loSbJson
LOCAL loJson
LOCAL loSbRaw
LOCAL loEmail

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
loHttp.AuthToken = "GMAIL-ACCESS-TOKEN"

* The id of the GMail message to download.
lcId = "166e50fed0b9b0cb"
lcUserId = "me"

loHttp.SetUrlVar("userId","me")
loHttp.SetUrlVar("id",lcId)

* Fetch the email.
lcUrl = "https://www.googleapis.com/gmail/v1/users/{$userId}/messages/{$id}?format=raw"
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbJson = CreateObject('Chilkat.StringBuilder')
lnSuccess = loHttp.DownloadSb(lcUrl,"utf-8",loSbJson)
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbJson
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.LoadSb(loSbJson)
loJson.EmitCompact = 0

IF (loHttp.LastStatus <> 200) THEN
    ? loJson.Emit()
    ? "Failed."
    RELEASE loHttp
    RELEASE loSbJson
    RELEASE loJson
    CANCEL
ENDIF

* 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..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbRaw = CreateObject('Chilkat.StringBuilder')
loJson.StringOfSb("raw",loSbRaw)
loSbRaw.Decode("base64url","utf-8")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email')
loEmail = CreateObject('Chilkat.Email')
loEmail.SetFromMimeSb(loSbRaw)

* Now we can use the email API to do whatever we desire..
? "From: " + loEmail.FromAddress
? "Subject: " + loEmail.Subject
* ...

RELEASE loHttp
RELEASE loSbJson
RELEASE loJson
RELEASE loSbRaw
RELEASE loEmail