Perl

Add a Related Item from a BinData Object

Demonstrates the Chilkat Email.AddRelatedBd method, which adds a related item (such as an inline image) using the contents of a BinData object, and returns the generated Content-ID. This example loads an image into a BinData, adds it, captures the Content-ID, and references it from the HTML body.

Background: This is the binary, Content-ID-based way to embed an inline resource — the right choice for images, whose bytes belong in a BinData rather than a string. Because Chilkat generates the Content-ID, the usual pattern is: add the item first, capture the returned ID, then build the matching <img src="cid:..."> reference from it (done here with a StringBuilder).

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the AddRelatedBd method, which adds a related item (such as an inline image)
#  using the contents of a BinData object, and returns the generated Content-ID.

$email = chilkat::CkEmail->new();
$email->put_Subject("Related image from BinData");

#  Load the image data from a file into a BinData object.
$bdImage = chilkat::CkBinData->new();
$success = $bdImage->LoadFile("qa_data/images/logo.png");
if ($success == 0) {
    print $bdImage->lastErrorText() . "\r\n";
    exit;
}

#  Add the image as a related item; capture its generated Content-ID.
$cid = $email->addRelatedBd("logo.png",$bdImage);
if ($email->get_LastMethodSuccess() == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

#  Reference the related item in the HTML body by its Content-ID.
$sbHtml = chilkat::CkStringBuilder->new();
$sbHtml->Append("<html><body><img src=\"cid:PLACEHOLDER_CID\"/></body></html>");
$numReplaced = $sbHtml->Replace("PLACEHOLDER_CID",$cid);
$email->SetHtmlBody($sbHtml->getAsString());

print "NumRelatedItems = " . $email->get_NumRelatedItems() . "\r\n";

#  Note: The path "qa_data/images/logo.png" is a relative local filesystem path,
#  relative to the current working directory of the running application.