Create EDIFACT MIME

Download Chilkat MIME ActiveX

Create an EDIFACT MIME message.

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%

set mime = Server.CreateObject("Chilkat.Mime")

success = mime.UnlockComponent("Anything for 30-day trial.")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode("Failed to unlock") & "</pre>"

End If

'  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.ContentType = "application/EDIFACT"
mime.Name = "om080923.edi"

'  We want the content-disposition to be:
'  Content-Disposition: attachment; filename="om080923.edi"
mime.Disposition = "attachment"
mime.Filename = "om080923.edi"

'  Make sure the content-transfer-encoding is 7bit:
'  Content-Transfer-Encoding: 7bit
mime.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:
Response.Write "<pre>" & Server.HTMLEncode( mime.GetMime()) & "</pre>"


%>
</body>
</html>