(Visual FoxPro) Permanently Delete a Specific GMail Message

Immediately and permanently deletes the specified message. This operation cannot be undone. (This is not the same as moving a 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 lcResponseStr

* 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 delete.
lcId = "1669cc9a926bb8c1"
lcUserId = "me"

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

* Delete the email.
lcUrl = "https://www.googleapis.com/gmail/v1/users/{$userId}/messages/{$id}"
lcResponseStr = loHttp.QuickDeleteStr(lcUrl)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

? "status = " + STR(loHttp.LastStatus)

* A 204 response indicate success.
* It is common for HTTP DELETE operations to respond with a 204 status code with an empty body for success.
* You'll find many REST APIs follow this custom..
IF (loHttp.LastStatus <> 204) THEN
    ? lcResponseStr
    ? "Failed."
    RELEASE loHttp
    CANCEL
ENDIF

? "Message deleted!"

RELEASE loHttp