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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# 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.

my $email = Chilkat2::Email->new;
$email->Subject('Related image from BinData');

# Load the image data from a file into a BinData object.
my $bdImage = Chilkat2::BinData->new;
my $success = $bdImage->LoadFile('qa_data/images/logo.png');
if (!$success) {
    print $bdImage->LastErrorText, "\n";
    exit;
}

# Add the image as a related item; capture its generated Content-ID.
my $cid = $email->AddRelatedBd('logo.png', $bdImage);
if (!$email->LastMethodSuccess) {
    print $email->LastErrorText, "\n";
    exit;
}

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

print 'NumRelatedItems = ', $email->NumRelatedItems, "\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.