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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $email = Chilkat2::Email->new;
$email->Subject('GetMimeBd example');
$email->From('alice@example.com');
$email->AddTo('Bob', 'bob@example.com');
$email->Body('Hello!');

# Append the complete MIME to a BinData object.
my $bdMime = Chilkat2::BinData->new;
my $success = $email->GetMimeBd($bdMime);
if (!$success) {
    print $email->LastErrorText, "\n";
    exit;
}

print 'MIME size (bytes) = ', $bdMime->NumBytes, "\n";