Xbase++

Download GMail Message Attachment by ID

See more GMail REST API Examples

Demonstrates how to download a GMail email attachment by the attachment ID. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL cAttachmentId
LOCAL cMessageId
LOCAL cUrl
LOCAL cOutputFilePath
LOCAL oSbJson
LOCAL oJson
LOCAL oBd

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

oHttp:AuthToken := "ACCESS_TOKEN"
oHttp:Accept := "application/json"

//  See the following example:  Get GMail Message (format=full)
//  It shows how to download an email by message ID, and it shows how to parse the JSON
//  response which includes attachment names, ids, and other information.

//  This example will assume we already have the attachment id and filename.

//  This is the attachment ID for a file named "helloWorld.pdf".
cAttachmentId := "ANGjdJ-oy3aCuZISJKLAhUdaEksCEklbAPyMaWzFgqOMGbPCRkgwgeu_Kttd99C17OBTHROkDZGekibTKWXGfscB5ww7fw4E65_V1dQ-jHhb2TD1Cdm58-BbNw2iDxzptco8iILPiSnLLfFn5Ps7nsRcxHaGTt3r0yqFKCuIYNnPK1vM04BXI_cfzo-HnI4I3tD6oHNHOGVQrL01MdShFQjPELPUjXM8z1qs7Kom-QyvV1iOldUN-66UuhynsmDX-CMM5TIdB-8KD_lmdhf-0DqG8JnCA20XpXyfqwS8XFkPA-t-QSjb7SdkHQFtQ4lz2PcBREFzZ2eI5j0l0Y_dQHRPYTeMwkVl1yl4MfFT4C4iso3VSF-eqaIjiFCbXKCFNyeEIW5WFsv189dhlSqU"

cMessageId := "1712bc1dc22da2a2"

oHttp:SetUrlVar("messageId", cMessageId)
oHttp:SetUrlVar("attachmentId", cAttachmentId)

cUrl := "https://www.googleapis.com/gmail/v1/users/userId/messages/{$messageId}/attachments/{$attachmentId}"

//  When we download, the response is JSON that contains the attachment data base64url encoded, like this:
//  {
//   "size": 934,
//   "data": "JVBERi0xLjM ... CiUlRU9GCg=="
//  }

cOutputFilePath := "qa_output/helloWorld.pdf"

//  Download into a StringBuilder.
oSbJson := CreateObject("Chilkat.StringBuilder")
nSuccess := oHttp:DownloadSb(cUrl, "utf-8", oSbJson)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oSbJson:destroy()
    RETURN
ENDIF

IF (oHttp:LastStatus != 200)
    //  Something failed.
    //  the JSON contains an error message.
    ? oSbJson:GetAsString()
    oHttp:destroy()
    oSbJson:destroy()
    RETURN
ENDIF

//  Load into a Chilkat JSON object.
oJson := CreateObject("Chilkat.JsonObject")
nSuccess := oJson:LoadSb(oSbJson)

//  Extract the base64url data into a BinData.
oBd := CreateObject("Chilkat.BinData")
nSuccess := oJson:BytesOf("data", "base64url", oBd)

//  Save the data to a file.
nSuccess := oBd:WriteFile("qa_output/helloWorld.pdf")

? "Success."

oHttp:destroy()
oSbJson:destroy()
oJson:destroy()
oBd:destroy()