Create Binary MIME

Download Chilkat MIME ActiveX

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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set mime = Server.CreateObject("Chilkat.Mime")

success = mime.UnlockComponent("Anything for 30-day trial")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode(mime.LastErrorText) & "</pre>"

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
    Response.Write "<pre>" & Server.HTMLEncode(mime.LastErrorText) & "</pre>"

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
    Response.Write "<pre>" & Server.HTMLEncode(mime.LastErrorText) & "</pre>"

End If

'  Success!
Response.Write "<pre>" & Server.HTMLEncode("Success!") & "</pre>"
%>
</body>
</html>