Create Binary MIME

Download Chilkat MIME ActiveX

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

Dim mime As New ChilkatMime

Dim success As Long
success = mime.UnlockComponent("Anything for 30-day trial")
If (success = 0) 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 = 0) 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 = 0) Then
    MsgBox mime.LastErrorText
    Exit Sub
End If

'  Success!
MsgBox "Success!"