Create EDIFACT MIME

Create an EDIFACT 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;
}

#  Assuming  you have an EDIFACT document loaded into
#  a string variable, set the MIME body with it:
$ediBody = "UNB+IATB:1+6XPPC+LHPPC+940101:0950+1' ...";
$mime->SetBodyFromPlainText($ediBody);

#  The call to SetBodyFromPlainText automatically set the
#  content-type to "text/plain".
#  However, we want:  application/EDIFACT; name=om080923.edi
$mime->put_ContentType("application/EDIFACT");
$mime->put_Name("om080923.edi");

#  We want the content-disposition to be:
#  Content-Disposition: attachment; filename="om080923.edi"
$mime->put_Disposition("attachment");
$mime->put_Filename("om080923.edi");

#  Make sure the content-transfer-encoding is 7bit:
#  Content-Transfer-Encoding: 7bit
$mime->put_Encoding("7bit");

#  Note: MIME header fields are case insensitive.

#  Add a few other header fields:
$mime->AddHeaderField("Message-ID",'<CHILKAT-MID-83cf2fbf-10cb-4322-ad79-4c1097fd56f2@Matt>');
$mime->AddHeaderField("From",'support@chilkatsoft.com');
$mime->AddHeaderField("To",'admin@chilkatsoft.com');
$mime->AddHeaderField("Subject","This is a test");
$mime->AddHeaderField("MIME-VERSION","1.0");
$mime->AddHeaderField("Date","Tue, 23 Sep 2008 07:26:39");

#  Display the complete MIME:
print $mime->getMime() . "\r\n";