Create Email with Non-Standard Binary Body

Creates an email where the only body is a binary WAV file. The technique used in the example could be applied to other binary files, such as PDF, MS-WORD docs, Excel docs, etc.

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

$success = $mime->SetBodyFromFile("VoiceMessage.wav");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

#  The MIME has this header:
#  Content-Disposition: attachment;
#  	 filename="VoiceMessage.wav"
#  Content-Transfer-Encoding: base64
#  Content-Type: audio/x-wav;
#  	name="VoiceMessage.wav"

#  We don't want the content-disposition to be an
#  attachment -- otherwise the email object will self-correct
#  and put it in a multipart/mixed format...
$mime->put_Disposition("");
$mime->put_Filename("");

$strMime = $mime->getMime();
print $strMime . "\r\n";

#  Now load it into an email object:
$email = new chilkat::CkEmail();
$success = $email->SetFromMimeText($strMime);
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

#  Add subject, TO, FROM, etc.
$email->put_Subject("This is a test");
$email->put_From('support@chilkatsoft.com');
$email->AddTo("Matt",'matt@chilkatsoft.com');

#  Your email is ready to send.
#  (but for this example, we'll simply save it to a file...)
$success = $email->SaveEml("email.eml");
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

print "OK!" . "\n";