Create Binary MIME

Demonstrates how to create a MIME document using the "binary" content-transfer-encoding.

 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 $mime->lastErrorText() . "\n";
    exit;
}

#  Set a custom headerr field:
$mime->AddHeaderField("Content-ID","PDFFile");

#  Load a PDF file into the MIME body-part of the message.
#  Note: This automatically sets the content-type and
#  content-transfer-encoding header fields to appropriate values
#  based on the file extension.  If specific values for these
#  header fields are required, set the ContentType and
#  Encoding properties after (as shown here)
$success = $mime->SetBodyFromFile("test.pdf");
if ($success == 0) {
    print $mime->lastErrorText() . "\n";
    exit;
}

#  Use binary MIME -- the MIME body will not be encoded
#  but will instead consist of the binary data of the file.
$mime->put_Encoding("binary");

#  Make sure our content-type is "application/pdf"
#  (It should already be this value...)
$mime->put_ContentType("application/pdf");

#  Save the MIME to a file.
$success = $mime->SaveMime("outMime.txt");
if ($success == 0) {
    print $mime->lastErrorText() . "\n";
    exit;
}

#  Success!
print "Success!" . "\n";