Create Multipart/Alternative MIME

Create a simple multipart/alternative MIME message.

Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();


$mime = new chilkat::CkMime();

$success = $mime->UnlockComponent("Anything for 30-day trial");
if ($success == 0) {
    print "Failed to unlock" . "\n";
    exit;
}

#  Make this a multipart/alternative MIME message:
$mime->NewMultipartAlternative();

#  Create a plain-text part and add it to the multipart/alternative MIME.
$ptMime = new chilkat::CkMime();
$ptMime->SetBodyFromPlainText("This is the plain-text body");
$mime->AppendPart($ptMime);

#  Now do the same for HTML:
$htMime = new chilkat::CkMime();
$htMime->SetBodyFromHtml("<html><body>This is the HTML body</body></html>");
$mime->AppendPart($htMime);

#  Show the full multipart/alternative MIME text which includes both parts:
print $mime->getMime() . "\r\n";

#  Need to change the boundary string?
$mime->put_Boundary("__NewBoundaryString__123");

#  Need to change the charset?
# ptMime is a CkMime
$ptMime = $mime->GetPart(0);
$ptMime->put_Charset("utf-8");
# htMime is a CkMime
$htMime = $mime->GetPart(1);
$htMime->put_Charset("utf-8");

#  Need to change the encoding?
$htMime->put_Encoding("base64");

#  Now show the MIME again:
print "---- After Changes ----" . "\r\n";
print $mime->getMime() . "\r\n";