Visual FoxPro

Move a GMail Message to Trash

See more GMail REST API Examples

Moves a specific GMail email message to trash. Visual FoxPro

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

lnSuccess = 0

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

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 = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpStr("POST",lcUrl,"","","",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

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

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

* A successful repsonse contains JSON that looks like this:

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

? "response body:"
? loResp.BodyStr

? "Message moved to trash!"

RELEASE loHttp
RELEASE loResp