(PureBasic) SendGrid Send Email with Additional BCC Recipient

See more SendGrid Examples

Sends an email to a recipient, but also with an additional BCC recipient.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

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

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

    success.i

    ; The following JSON is sent in the request body.

    ; {
    ;   "personalizations": [
    ;     {
    ;       "to": [
    ;         {
    ;           "email": "recipient@example.com"
    ;         }
    ;       ]
    ;       "bcc": [
    ;         {
    ;           "email": "recipient2@example2.com"
    ;         }
    ;       ]
    ;     }
    ;   ],
    ;   "from": {
    ;     "email": "sendeexampexample@example.com"
    ;   },
    ;   "subject": "Hello, World!",
    ;   "content": [
    ;     {
    ;       "type": "text/plain",
    ;       "value": "Heya!"
    ;     }
    ;   ]
    ; }

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

    CkJsonObject::ckUpdateString(json,"personalizations[0].to[0].email","recipient@example.com")
    CkJsonObject::ckUpdateString(json,"personalizations[0].bcc[0].email","recipient2@example2.com")
    CkJsonObject::ckUpdateString(json,"from.email","sendeexampexample@example.com")
    CkJsonObject::ckUpdateString(json,"subject","Hello, World!")
    CkJsonObject::ckUpdateString(json,"content[0].type","text/plain")
    CkJsonObject::ckUpdateString(json,"content[0].value","Heya!")

    ; Adds the "Authorization: Bearer YOUR_API_KEY" header.
    CkHttp::setCkAuthToken(http, "YOUR_API_KEY")
    CkHttp::ckSetRequestHeader(http,"Content-Type","application/json")

    resp.i = CkHttp::ckPostJson3(http,"https://api.sendgrid.com/v3/mail/send","application/json",json)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(json)
        ProcedureReturn
    EndIf

    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
    Else
        Debug "response status code: " + Str(CkHttpResponse::ckStatusCode(resp))
        ; Display the response.
        ; If successful, the response code is 202 and the response body string is empty.
        ; (The response body string may also be empty for error response codes.)
        Debug CkHttpResponse::ckBodyStr(resp)
        CkHttpResponse::ckDispose(resp)

    EndIf



    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure