(Visual FoxPro) Move a GMail Message to Trash

Moves a specific GMail email message to trash.

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

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcId
LOCAL lcUserId
LOCAL lcUrl
LOCAL loResp

* 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 move to Trash.
lcId = "16678c485e7f0a0c"
lcUserId = "me"

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

* Move to trash by POSTing w/ an empty request body.
lcUrl = "https://www.googleapis.com/gmail/v1/users/{$userId}/messages/{$id}/trash"
loResp = loHttp.PText("POST",lcUrl,"","","",0,0)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

? "status = " + STR(loResp.StatusCode)

* A 200 response status indicate success.
IF (loResp.StatusCode <> 200) THEN
    ? loResp.BodyStr
    ? "Failed."
    RELEASE loResp
    RELEASE loHttp
    CANCEL
ENDIF

* A successful repsonse contains JSON that looks like this:

* {
*  "id": "16678c485e7f0a0c",
*  "threadId": "16678c485e7f0a0c",
*  "labelIds": [
*   "TRASH",
*   "CATEGORY_SOCIAL"
*  ]
* }

? "response body:"
? loResp.BodyStr

RELEASE loResp

? "Message moved to trash!"

RELEASE loHttp