Create EDIFACT MIME

Download Chilkat MIME ActiveX

Create an EDIFACT MIME message.

LOCAL loMime
LOCAL lnSuccess
LOCAL lcEdiBody


loMime = CreateObject('Chilkat.Mime')

lnSuccess = loMime.UnlockComponent("Anything for 30-day trial.")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX("Failed to unlock")
    QUIT
ENDIF

*  Assuming  you have an EDIFACT document loaded into
*  a string variable, set the MIME body with it:

lcEdiBody = "UNB+IATB:1+6XPPC+LHPPC+940101:0950+1' ..."
loMime.SetBodyFromPlainText(lcEdiBody)

*  The call to SetBodyFromPlainText automatically set the
*  content-type to "text/plain".
*  However, we want:  application/EDIFACT; name=om080923.edi
loMime.ContentType = "application/EDIFACT"
loMime.Name = "om080923.edi"

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

*  Make sure the content-transfer-encoding is 7bit:
*  Content-Transfer-Encoding: 7bit
loMime.Encoding = "7bit"

*  Note: MIME header fields are case insensitive.

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

*  Display the complete MIME:
? loMime.GetMime()