Perl

Serialize MIME to a String

Demonstrates the Chilkat Mime.GetMime method, which serializes and returns the complete MIME entity — headers, body, multipart boundaries, and all descendants — as a string. It takes no arguments.

Background: This produces the finished MIME text ready to send, store, or hand to another component — the inverse of loading. The whole tree is emitted, including generated multipart boundaries. Because it returns a string, it is best for text-safe content; when the body may contain raw binary bytes, serialize with GetMimeBd to a BinData instead so nothing is altered.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the Mime.GetMime method, which serializes and returns the complete MIME entity
#  (headers, body, multipart boundaries, and all descendants) as a string.  It takes no
#  arguments.

$mime = chilkat::CkMime->new();

#  Build a simple MIME entity.
$success = $mime->SetBodyFromPlainText("Hello, this is the message body.");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

#  Serialize it to a string.
$mimeText = $mime->getMime();
if ($mime->get_LastMethodSuccess() == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

print $mimeText . "\r\n";