(PureBasic) Move a GMail Message to Trash

Moves a specific GMail email message to trash.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

    success.i

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttp::setCkAuthToken(http, "GMAIL-ACCESS-TOKEN")

    ; The id of the GMail message to move to Trash.
    id.s = "16678c485e7f0a0c"
    userId.s = "me"

    CkHttp::ckSetUrlVar(http,"userId","me")
    CkHttp::ckSetUrlVar(http,"id",id)

    ; Move to trash by POSTing w/ an empty request body.
    url.s = "https://www.googleapis.com/gmail/v1/users/{$userId}/messages/{$id}/trash"
    resp.i = CkHttp::ckPText(http,"POST",url,"","","",0,0)
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    Debug "status = " + Str(CkHttpResponse::ckStatusCode(resp))

    ; A 200 response status indicate success.
    If CkHttpResponse::ckStatusCode(resp) <> 200
        Debug CkHttpResponse::ckBodyStr(resp)
        Debug "Failed."
        CkHttpResponse::ckDispose(resp)

        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    ; A successful repsonse contains JSON that looks like this:

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

    Debug "response body:"
    Debug CkHttpResponse::ckBodyStr(resp)

    CkHttpResponse::ckDispose(resp)

    Debug "Message moved to trash!"


    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure