(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

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

    success.i = 0

    ; 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 = CkEmail::ckLoadEml(email,"qa_data/eml/testEmail.eml")
    If success = 0
        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

    resp.i = CkHttpResponse::ckCreate()
    If resp.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"
    CkHttp::setCkUncommonOptions(http, "SendGzipped")
    success = CkHttp::ckHttpSb(http,"POST",url,sbMime,"utf-8","message/rfc822",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkEmail::ckDispose(email)
        CkStringBuilder::ckDispose(sbMime)
        CkHttp::ckDispose(http)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    CkHttp::setCkUncommonOptions(http, "")

    ; 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")

    ; 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"

    success = CkHttp::ckHttpJson(http,"POST",url,json2,"application/json",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkEmail::ckDispose(email)
        CkStringBuilder::ckDispose(sbMime)
        CkHttp::ckDispose(http)
        CkHttpResponse::ckDispose(resp)
        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"
    ;  ]
    ; }


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


    ProcedureReturn
EndProcedure