Create Binary MIME

Demonstrates how to create a MIME document using the "binary" content-transfer-encoding.

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(mime.LastErrorText)
    Exit Sub
End If


'  Set a custom headerr field:
mime.AddHeaderField("Content-ID","PDFFile")

'  Load a PDF file into the MIME body-part of the message.
'  Note: This automatically sets the content-type and
'  content-transfer-encoding header fields to appropriate values
'  based on the file extension.  If specific values for these
'  header fields are required, set the ContentType and
'  Encoding properties after (as shown here)
success = mime.SetBodyFromFile("test.pdf")
If (success = false) Then
    MsgBox(mime.LastErrorText)
    Exit Sub
End If


'  Use binary MIME -- the MIME body will not be encoded
'  but will instead consist of the binary data of the file.
mime.Encoding = "binary"

'  Make sure our content-type is "application/pdf"
'  (It should already be this value...)
mime.ContentType = "application/pdf"

'  Save the MIME to a file.
success = mime.SaveMime("outMime.txt")
If (success = false) Then
    MsgBox(mime.LastErrorText)
    Exit Sub
End If


'  Success!
MsgBox("Success!")