Perl

Get an Email's MIME into a BinData

Demonstrates the Chilkat Email.GetMimeBd method, which serializes the complete RFC822/MIME message (headers, body representations, related items, and attachments) and appends the bytes to a BinData object. This example builds a message, serializes it to a BinData, and prints the byte count.

Background: A BinData holds raw bytes, which is the right container when you want the MIME as binary rather than text — for example to write it directly to a file or socket, hash it, or hand it to another API that expects a byte buffer. It is the binary counterpart to GetMime (string) and GetMimeSb (StringBuilder).

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the GetMimeBd method, which serializes the complete RFC822/MIME message
#  (headers, bodies, related items, and attachments) and appends the bytes to a BinData
#  object.

$email = chilkat::CkEmail->new();
$email->put_Subject("GetMimeBd example");
$email->put_From('alice@example.com');
$email->AddTo("Bob",'bob@example.com');
$email->put_Body("Hello!");

#  Append the complete MIME to a BinData object.
$bdMime = chilkat::CkBinData->new();
$success = $email->GetMimeBd($bdMime);
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

print "MIME size (bytes) = " . $bdMime->get_NumBytes() . "\r\n";