Create EDIFACT MIME

Download Chilkat MIME ActiveX

Create an EDIFACT MIME message.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set mime = CreateObject("Chilkat.Mime")

success = mime.UnlockComponent("Anything for 30-day trial.")
If (success = 0) Then
    MsgBox "Failed to unlock"
    WScript.Quit
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:
outFile.WriteLine(mime.GetMime())


outFile.Close