(Xojo Plugin) Get GMail Message format=full

Examines the JSON returned when getting a message using format=full.

For more information, see https://developers.google.com/gmail/api/v1/reference/users/messages/get

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 http As New Chilkat.Http

http.AuthToken = "ACCESS_TOKEN"

http.Accept = "application/json"

// This is the ID for a particular message in our mailbox...
Dim id As String
id = "1712bc1dc22da2a2"

// Download the message using format=full
Dim success As Boolean
success = http.SetUrlVar("id",id)

Dim resp As Chilkat.HttpResponse
resp = http.QuickRequest("GET","https://www.googleapis.com/gmail/v1/users/userId/messages/{$id}?format=full")
If (http.LastMethodSuccess <> True) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

System.DebugLog("Response Status Code: " + Str(resp.StatusCode))

Dim json As New Chilkat.JsonObject
success = json.Load(resp.BodyStr)
json.EmitCompact = False
System.DebugLog(json.Emit())

If (resp.StatusCode <> 200) Then
    System.DebugLog("Failed.")

    Return
End If

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

// Here is a sample "format=full" response that contains 4 attachments:
// The JSON parsing source code is shown below...

// {
//   "id": "1712bc1dc22da2a2",
//   "threadId": "1712bc1dc22da2a2",
//   "labelIds": [
//     "UNREAD",
//     "IMPORTANT",
//     "CATEGORY_PERSONAL",
//     "INBOX"
//   ],
//   "snippet": "Hello, this is a test email with attachments..",
//   "historyId": "759379",
//   "internalDate": "1585577056000",
//   "payload": {
//     "partId": "",
//     "mimeType": "multipart/mixed",
//     "filename": "",
//     "headers": [
//       {
//         "name": "Delivered-To",
//         "value": "chilkat.support@gmail.com"
//       },
//       {
//         "name": "Received",
//         "value": "..."
//       },
//       {
//         "name": "X-Received",
//         "value": "..."
//       },
//       {
//         "name": "X-Google-Smtp-Source",
//         "value": "..."
//       },
//       {
//         "name": "X-Received",
//         "value": "..."
//       },
//       {
//         "name": "ARC-Seal",
//         "value": "..."
//       },
//       {
//         "name": "ARC-Message-Signature",
//         "value": "..."
//       },
//       {
//         "name": "ARC-Authentication-Results",
//         "value": "..."
//       },
//       {
//         "name": "Return-Path",
//         "value": "..."
//       },
//       {
//         "name": "Received",
//         "value": "..."
//       },
//       {
//         "name": "Received-SPF",
//         "value": "..."
//       },
//       {
//         "name": "Authentication-Results",
//         "value": "..."
//       },
//       {
//         "name": "DKIM-Signature",
//         "value": "..."
//       },
//       {
//         "name": "DKIM-Signature",
//         "value": "..."
//       },
//       {
//         "name": "Subject",
//         "value": "Test email with attachments"
//       },
//       {
//         "name": "From",
//         "value": "..."
//       },
//       {
//         "name": "To",
//         "value": "..."
//       },
//       {
//         "name": "Date",
//         "value": "Mon, 30 Mar 2020 14:04:16 +0000"
//       },
//       {
//         "name": "Mime-Version",
//         "value": "1.0"
//       },
//       {
//         "name": "Content-Type",
//         "value": "multipart/mixed;  boundary=\"=_wNvwW3YTnQBZ24pmfFNfay3S6M-pHT7KdZIkXwYF-BFiPYNE\""
//       },
//       {
//         "name": "References",
//         "value": "..."
//       },
//       {
//         "name": "X-Mailer",
//         "value": "..."
//       },
//       {
//         "name": "Thread-Index",
//         "value": "AQHWBpwYB0UZvgGPT1KluJJUCF0BGg=="
//       },
//       {
//         "name": "Thread-Topic",
//         "value": "Test email with attachments"
//       },
//       {
//         "name": "Message-ID",
//         "value": "..."
//       },
//       {
//         "name": "X-SES-Outgoing",
//         "value": "2020.03.30-54.240.27.106"
//       },
//       {
//         "name": "Feedback-ID",
//         "value": "..."
//       }
//     ],
//     "body": {
//       "size": 0
//     },
//     "parts": [
//       {
//         "partId": "0",
//         "mimeType": "multipart/alternative",
//         "filename": "",
//         "headers": [
//           {
//             "name": "Content-Type",
//             "value": "multipart/alternative;  boundary=\"=_wNvwHW2hdOZkYPaJAhdOY4+XBEFNAcvIZ1sQcW4JkBcAdDqA\""
//           }
//         ],
//         "body": {
//           "size": 0
//         },
//         "parts": [
//           {
//             "partId": "0.0",
//             "mimeType": "text/plain",
//             "filename": "",
//             "headers": [
//               {
//                 "name": "Content-Type",
//                 "value": "text/plain; charset=UTF-8"
//               },
//               {
//                 "name": "Content-Transfer-Encoding",
//                 "value": "7bit"
//               }
//             ],
//             "body": {
//               "size": 129,
//               "data": "SGVsbG8sIHRoaXMgaXMgYSB0ZXN0IGVtYWlsIHdpdGggYXR0YWNobWVudHMuLg0KIA0KIA0KIA0KLS0gDQogQmVzdCBSZWdhcmRzLA0KIE1hdHQgRmF1c2V5DQogQ2hpbGthdCBTb2Z0d2FyZSwgSW5jLiANCg0KIA0KDQogDQog"
//             }
//           },
//           {
//             "partId": "0.1",
//             "mimeType": "multipart/related",
//             "filename": "",
//             "headers": [
//               {
//                 "name": "Content-Type",
//                 "value": "multipart/related;  boundary=\"=_wNvw-LQZP2xD5vBm4q4esgoD5F4j3w+DRPUkkzOidpnpXAre\""
//               }
//             ],
//             "body": {
//               "size": 0
//             },
//             "parts": [
//               {
//                 "partId": "0.1.0",
//                 "mimeType": "text/html",
//                 "filename": "",
//                 "headers": [
//                   {
//                     "name": "Content-Type",
//                     "value": "text/html; charset=utf-8"
//                   },
//                   {
//                     "name": "Content-Transfer-Encoding",
//                     "value": "7bit"
//                   }
//                 ],
//                 "body": {
//                   "size": 530,
//                   "data": "PGh0bWw-DQogIDxoZWFkPg0KDQogICAgPG1ldGEgaHR0cC1lcXVpdj0iY29udGVudC10eXBlIiBjb250ZW50PSJ0ZXh0L2h0bWw7IGNoYXJzZXQ9VVRGLTgiPg0KICA8L2hlYWQ-DQogIDxib2R5Pg0KICAgIEhlbGxvLCB0aGlzIGlzIGE8Zm9udCBjb2xvcj0iI2ZmMDAwMCI-IHRlc3Q8L2ZvbnQ-IGVtYWlsIHdpdGgNCiAgICBhdHRhY2htZW50cy4uPGJyPg0KICAgIDxicj4NCiAgICA8aW1nIG1vei1kby1ub3Qtc2VuZD0iZmFsc2UiDQogICAgICBzcmM9ImNpZDpwYXJ0MS5GMEI1MzVEQi5DQjZFN0ExMkBjaGlsa2F0c29mdC5jb20iIGFsdD0ic2VhaG9yc2UiDQogICAgICB3aWR0aD0iMTIwIiBoZWlnaHQ9IjEyMCI-PGJyPg0KICAgIDxkaXYgY2xhc3M9Im1vei1zaWduYXR1cmUiPi0tIDxicj4NCiAgICAgIEJlc3QgUmVnYXJkcyw8YnI-DQogICAgICBNYXR0IEZhdXNleTxicj4NCiAgICAgIENoaWxrYXQgU29mdHdhcmUsIEluYy4NCiAgICAgIDxwPg0KICAgICAgPC9wPg0KICAgIDwvZGl2Pg0KICA8L2JvZHk-DQo8L2h0bWw-DQo="
//                 }
//               },
//               {
//                 "partId": "0.1.1",
//                 "mimeType": "image/jpeg",
//                 "filename": "seahorse.jpg",
//                 "headers": [
//                   {
//                     "name": "Content-Type",
//                     "value": "image/jpeg"
//                   },
//                   {
//                     "name": "Content-Id",
//                     "value": "\u003cpart1.F0B535DB.CB6E7A12@chilkatsoft.com\u003e"
//                   },
//                   {
//                     "name": "Content-Disposition",
//                     "value": "inline; filename=seahorse.jpg"
//                   },
//                   {
//                     "name": "Content-Transfer-Encoding",
//                     "value": "base64"
//                   }
//                 ],
//                 "body": {
//                   "attachmentId": "ANGjdJ-Z1c9gUGsEzexYYEsF5nLHGUaNiZQs5HkuFQVPo5jq1eze8poigmarvERUIRj1coKUaftiQPWhiZWaFyLDcyjFbfLdjWyyO3AxRO8pY5liAhVp1bt_5f79Nk0vfnZXL0OnZmNAMdrcFe645DbsajwDZcoYnWVcsV9Fe6PCNq41e6XW8Ko4Ex7zMzkATiwlLyx0RLcR0hl-FuZ-UVpQI0JeMTkNi4eN5-9L4dRU7HTo9qEyFW_p3__vXrnEJvmEvWXNUqxKLktcZvkvql6mnAVMDiIapqsE6x0EAvFobre7sf1_T6ieVlA-m92vrtELC2HHdxzkU-qhC_LuoOSOz8nd8tfWsrB8zex0v6NFFP9mJmBUb1QGtCGTxLdI40z_LdMOSiaqmeCq4o_s",
//                   "size": 24388
//                 }
//               }
//             ]
//           }
//         ]
//       },
//       {
//         "partId": "1",
//         "mimeType": "application/pdf",
//         "filename": "helloWorld.pdf",
//         "headers": [
//           {
//             "name": "Content-Type",
//             "value": "application/pdf; name=helloWorld.pdf"
//           },
//           {
//             "name": "Content-Transfer-Encoding",
//             "value": "base64"
//           },
//           {
//             "name": "Content-Disposition",
//             "value": "attachment; filename=helloWorld.pdf"
//           }
//         ],
//         "body": {
//           "attachmentId": "ANGjdJ-oy3aCuZISJKLAhUdaEksCEklbAPyMaWzFgqOMGbPCRkgwgeu_Kttd99C17OBTHROkDZGekibTKWXGfscB5ww7fw4E65_V1dQ-jHhb2TD1Cdm58-BbNw2iDxzptco8iILPiSnLLfFn5Ps7nsRcxHaGTt3r0yqFKCuIYNnPK1vM04BXI_cfzo-HnI4I3tD6oHNHOGVQrL01MdShFQjPELPUjXM8z1qs7Kom-QyvV1iOldUN-66UuhynsmDX-CMM5TIdB-8KD_lmdhf-0DqG8JnCA20XpXyfqwS8XFkPA-t-QSjb7SdkHQFtQ4lz2PcBREFzZ2eI5j0l0Y_dQHRPYTeMwkVl1yl4MfFT4C4iso3VSF-eqaIjiFCbXKCFNyeEIW5WFsv189dhlSqU",
//           "size": 934
//         }
//       },
//       {
//         "partId": "2",
//         "mimeType": "application/x-gzip",
//         "filename": "hamlet.xml.gz",
//         "headers": [
//           {
//             "name": "Content-Type",
//             "value": "application/x-gzip; name=hamlet.xml.gz"
//           },
//           {
//             "name": "Content-Transfer-Encoding",
//             "value": "base64"
//           },
//           {
//             "name": "Content-Disposition",
//             "value": "attachment; filename=hamlet.xml.gz"
//           }
//         ],
//         "body": {
//           "attachmentId": "ANGjdJ9rvj1ebIc-f0cXG0kwsb6pDBkRCNk3IQXbJ5z0-s2mEcVat3Pp6pVm3rTkRLOyeXHzRcTuel7nxRFJX6WVAKtG-5B-GL_b6DlsOWOzH4A_IKlyJ9U4aeWT02CgQL8oRwlCu1h0BtnY6lT8zureboGOqR7qoa-i5jH8xr6ds0nUDZp71lAwfOjji3eG6Wg6HfzWzWUThYPH3ba0_q35Jii8JIMhyJwwZnGjN3lvW_VhN6UIL1DIpop95b8rdwJdpyUavm7VhGtdNrI-mpgWQtT7WIAdIe6a-O74Zf4AB7uG7bp9R-IMBqQT-1jQqkN2_xlSpe3meWbuNu-4zsYfXN-IqM-Iy4dudAXjt0aY3Y8zxuHfW5qT7o4u8wSszhTIjM1j8lt-N7GZqnwJ",
//           "size": 77409
//         }
//       },
//       {
//         "partId": "3",
//         "mimeType": "text/plain",
//         "filename": "brasil_cert.pem",
//         "headers": [
//           {
//             "name": "Content-Type",
//             "value": "text/plain; name=brasil_cert.pem"
//           },
//           {
//             "name": "Content-Transfer-Encoding",
//             "value": "base64"
//           },
//           {
//             "name": "Content-Disposition",
//             "value": "attachment; filename=brasil_cert.pem"
//           }
//         ],
//         "body": {
//           "attachmentId": "ANGjdJ8nGD_xRHvjDwNIaSUleWCWk15ksUleks0fJ29gfGVOebzjBOUnAHYgKPefUQ6d6ExtqYubpvGCka1kJAB4gFwsnhQeflBhFNkORBqtb6FAGq0FcNgrbuxyKywmoHOUV4GDsNs4OGroEcFhBeZNQ8XKEdEoaO8ht8DARn2LncjxioQ4TmZ6jawmMF-mLbW1mz4QjwNir5jLOsE11tYZV2tLDoqjsubKeJJA8xojWo9r50zWfJFgWJKXZJwyNvKyZTwLmmBL_ATFxLFp4Nvo4K37uuVdUCG8WXiWwNr0oIV1RZOd_ZOA7M6Jif0wUcppJdxXRqlsFJqGlcVsLowkVGrJNAMe-fLY1x4w5od3axZIdZQgBPlVRKYYu5xopPTrLJsn4ld7pNyAhpZW",
//           "size": 2952
//         }
//       },
//       {
//         "partId": "4",
//         "mimeType": "application/x-zip-compressed",
//         "filename": "helloWorld.zip",
//         "headers": [
//           {
//             "name": "Content-Type",
//             "value": "application/x-zip-compressed; name=helloWorld.zip"
//           },
//           {
//             "name": "Content-Transfer-Encoding",
//             "value": "base64"
//           },
//           {
//             "name": "Content-Disposition",
//             "value": "attachment; filename=helloWorld.zip"
//           }
//         ],
//         "body": {
//           "attachmentId": "ANGjdJ9nWglkRNneBVGFk5GwSg83COa0zBeiTAvoMYniPklY03-w93dmEVHJTB9CAu5WMFW_yhV4ou2oX2w9SlpZjjyTgSc7sfYWeuX3pt29z67agy9WUVYeNGpo_30LSPgeyNk_Nm0DTAaektJTEMSy65rjRyK03VkHahNpMLY6Kd_pdfrk50oceuXzwNJZ-V-bftmIluueoQMqLcWQSGBRvEdIcl6EcPFFw8KuMLrjZZJwq8_bb8uM6zUvV23Q9LsLTgWg8FaBWejBf0wuIFXl3ZhtSLa-Y8OXCApHPdUnn45hccAzaQEmy4ZG7cgvCdN_jA9eFX46HYHty7ewleKPFGLTVof2JWsMiIi9BPqfohqQ5FPm1WXlGG_bOHvaMdoWcoqbKMMvF8lWZsfz",
//           "size": 174
//         }
//       }
//     ]
//   },
//   "sizeEstimate": 152847
// }

Dim strVal As String
Dim name As String
Dim value As String
Dim partId As String
Dim mimeType As String
Dim filename As String
Dim bodySize As Int32
Dim bodyAttachmentId As String
Dim j As Int32
Dim count_j As Int32
Dim bodyData As String
Dim k As Int32
Dim count_k As Int32
Dim json1 As Chilkat.JsonObject
Dim i1 As Int32
Dim count_i1 As Int32

Dim id As String
id = json.StringOf("id")
Dim threadId As String
threadId = json.StringOf("threadId")
Dim snippet As String
snippet = json.StringOf("snippet")
Dim historyId As String
historyId = json.StringOf("historyId")
Dim internalDate As String
internalDate = json.StringOf("internalDate")
Dim payloadPartId As String
payloadPartId = json.StringOf("payload.partId")
Dim payloadMimeType As String
payloadMimeType = json.StringOf("payload.mimeType")
Dim payloadFilename As String
payloadFilename = json.StringOf("payload.filename")
Dim payloadBodySize As Int32
payloadBodySize = json.IntOf("payload.body.size")
Dim sizeEstimate As Int32
sizeEstimate = json.IntOf("sizeEstimate")
Dim i As Int32
i = 0
Dim count_i As Int32
count_i = json.SizeOfArray("labelIds")
While i < count_i
    json.I = i
    strVal = json.StringOf("labelIds[i]")
    i = i + 1
Wend
i = 0
count_i = json.SizeOfArray("payload.headers")
While i < count_i
    json.I = i
    name = json.StringOf("payload.headers[i].name")
    value = json.StringOf("payload.headers[i].value")
    i = i + 1
Wend
i = 0
count_i = json.SizeOfArray("payload.parts")
While i < count_i
    json.I = i
    partId = json.StringOf("payload.parts[i].partId")
    mimeType = json.StringOf("payload.parts[i].mimeType")
    filename = json.StringOf("payload.parts[i].filename")
    bodySize = json.IntOf("payload.parts[i].body.size")
    bodyAttachmentId = json.StringOf("payload.parts[i].body.attachmentId")
    j = 0
    count_j = json.SizeOfArray("payload.parts[i].headers")
    While j < count_j
        json.J = j
        name = json.StringOf("payload.parts[i].headers[j].name")
        value = json.StringOf("payload.parts[i].headers[j].value")
        j = j + 1
    Wend
    j = 0
    count_j = json.SizeOfArray("payload.parts[i].parts")
    While j < count_j
        json.J = j
        partId = json.StringOf("payload.parts[i].parts[j].partId")
        mimeType = json.StringOf("payload.parts[i].parts[j].mimeType")
        filename = json.StringOf("payload.parts[i].parts[j].filename")
        bodySize = json.IntOf("payload.parts[i].parts[j].body.size")
        bodyData = json.StringOf("payload.parts[i].parts[j].body.data")
        k = 0
        count_k = json.SizeOfArray("payload.parts[i].parts[j].headers")
        While k < count_k
            json.K = k
            name = json.StringOf("payload.parts[i].parts[j].headers[k].name")
            value = json.StringOf("payload.parts[i].parts[j].headers[k].value")
            k = k + 1
        Wend
        k = 0
        count_k = json.SizeOfArray("payload.parts[i].parts[j].parts")
        While k < count_k
            json.K = k
            partId = json.StringOf("payload.parts[i].parts[j].parts[k].partId")
            mimeType = json.StringOf("payload.parts[i].parts[j].parts[k].mimeType")
            filename = json.StringOf("payload.parts[i].parts[j].parts[k].filename")
            bodySize = json.IntOf("payload.parts[i].parts[j].parts[k].body.size")
            bodyData = json.StringOf("payload.parts[i].parts[j].parts[k].body.data")
            bodyAttachmentId = json.StringOf("payload.parts[i].parts[j].parts[k].body.attachmentId")

            json1 = json.ObjectOf("payload.parts[i].parts[j].parts[k]")
            i1 = 0
            count_i1 = json1.SizeOfArray("headers")
            While i1 < count_i1
                json1.I = i1
                name = json1.StringOf("headers[i].name")
                value = json1.StringOf("headers[i].value")
                i1 = i1 + 1
            Wend

            k = k + 1
        Wend
        j = j + 1
    Wend
    i = i + 1
Wend