(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$http = chilkat::CkHttp->new();

# 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 = chilkat::CkJsonObject->new();
$json->UpdateString("personalizations[0].to[0].email",'recipient@example.com');
$json->UpdateString("personalizations[0].bcc[0].email",'recipient2@example2.com');
$json->UpdateString("from.email",'sendeexampexample@example.com');
$json->UpdateString("subject","Hello, World!");
$json->UpdateString("content[0].type","text/plain");
$json->UpdateString("content[0].value","Heya!");

# Adds the "Authorization: Bearer YOUR_API_KEY" header.
$http->put_AuthToken("YOUR_API_KEY");
$http->SetRequestHeader("Content-Type","application/json");

# resp is a HttpResponse
$resp = $http->PostJson3("https://api.sendgrid.com/v3/mail/send","application/json",$json);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
}
else {
    print "response status code: " . $resp->get_StatusCode() . "\r\n";
    # 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.)
    print $resp->bodyStr() . "\r\n";

}