(PureBasic) Insert Email into GMail Folder

Directly inserts a message into only this user's mailbox similar to IMAP APPEND, bypassing most scanning and classification. Does not send a message.

This example will create a Chilkat Email object and upload/insert it into GMail. Then adds the "INBOX" label to the email to make it appear in INBOX

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonObject.pb"
IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

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

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

    ; This example chooses to load an email from a file.
    success.i = CkEmail::ckLoadEml(email,"qa_data/eml/testEmail.eml")
    If success <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ; Get the email as MIME.
    sbMime.i = CkStringBuilder::ckCreate()
    If sbMime.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkEmail::ckGetMimeSb(email,sbMime)

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

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

    ; Upload to GMail (does not send, but just inserts).

    ; IMPORTANT: After uploading/inserting, you won't see the message in the Inbox.
    ; In your web browser, if you go to "All Mail", you will see it.

    url.s = "https://www.googleapis.com/upload/gmail/v1/users/me/messages?uploadType=media"
    sendGzipped.i = 1
    resp.i = CkHttp::ckPTextSb(http,"POST",url,sbMime,"utf-8","message/rfc822",0,sendGzipped)
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkEmail::ckDispose(email)
        CkStringBuilder::ckDispose(sbMime)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    ; A status code of 200 indicates success.
    Debug "Response status code: " + Str(CkHttpResponse::ckStatusCode(resp))
    Debug "Response body:"
    Debug CkHttpResponse::ckBodyStr(resp)

    ; The response body contains JSON.
    ; A sample successful JSON response:

    ; {
    ;  "id": "166f583051d36144",
    ;  "threadId": "166f5529e079a456"
    ; }

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

    CkJsonObject::ckLoad(json,CkHttpResponse::ckBodyStr(resp))
    id.s = CkJsonObject::ckStringOf(json,"id")

    CkHttpResponse::ckDispose(resp)

    ; Add the Inbox label to the inserted email so that it appears in Inbox.
    Debug "---- Adding the Inbox label to the newly inserted email. ----"

    ; Create the following JSON to be sent in a POST to modify labels for this message.
    ; {
    ;   "addLabelIds": [
    ;     "INBOX"
    ;     ]
    ; }

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

    CkJsonObject::ckUpdateString(json2,"addLabelIds[0]","INBOX")

    CkHttp::ckSetUrlVar(http,"id",id)
    url = "https://www.googleapis.com/gmail/v1/users/me/messages/{$id}/modify"

    resp = CkHttp::ckPostJson3(http,url,"application/json",json2)
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkEmail::ckDispose(email)
        CkStringBuilder::ckDispose(sbMime)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(json)
        CkJsonObject::ckDispose(json2)
        ProcedureReturn
    EndIf

    ; A status code of 200 indicates success.
    Debug "Response status code: " + Str(CkHttpResponse::ckStatusCode(resp))
    Debug "Response body:"
    Debug CkHttpResponse::ckBodyStr(resp)

    ; The response body contains JSON.
    ; A sample successful JSON response:

    ; {
    ;  "id": "166f583051d36144",
    ;  "threadId": "166f583051d36144",
    ;  "labelIds": [
    ;   "INBOX"
    ;  ]
    ; }

    CkHttpResponse::ckDispose(resp)



    CkEmail::ckDispose(email)
    CkStringBuilder::ckDispose(sbMime)
    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(json)
    CkJsonObject::ckDispose(json2)


    ProcedureReturn
EndProcedure