Create EDIFACT MIME

Create an EDIFACT MIME message.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim mime As New Chilkat.Mime()

Dim success As Boolean
success = mime.UnlockComponent("Anything for 30-day trial.")
If (success = false) Then
    MsgBox("Failed to unlock")
    Exit Sub
End If


'  Assuming  you have an EDIFACT document loaded into
'  a string variable, set the MIME body with it:
Dim ediBody As String
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:
TextBox1.Text = TextBox1.Text & mime.GetMime() & vbCrLf