Decode Binary MIME Content

Download Chilkat MIME ActiveX

Decode the binary content in a MIME message.

<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 Server.HtmlEncode("Failed to unlock component") & "<br>"

End If

success = mime.LoadMimeFile("mm7.txt")
If (success = 0) Then
    Response.Write Server.HtmlEncode(mime.LastErrorText) & "<br>"

End If

'  This particular MIME message has a top-level multipart/mixed
'  with 2 immediate children:
'  Content-Type: text/xml; charset=UTF-8
'  Content-Type: multipart/mixed;
'  within the multipart/mixed child, two additional children exist:
'  content-type: application/smil; name=main.smil; charset=utf-8
'  content-type: image/jpeg; name=kl20.jpg

'  This example will save the JPG sub-part:
'  (indexing begins at 0)
Set mimePart = mime.GetPart(1)
Set jpgPart = mimePart.GetPart(1)

'  Save the decoded body to a file.
'  The "Name" property contains "kl20.jpg"
success = jpgPart.SaveBody(jpgPart.Name)
If (success = 0) Then
    Response.Write Server.HtmlEncode(jpgPart.LastErrorText) & "<br>"

End If

Response.Write Server.HtmlEncode("Success!") & "<br>"


%>
</body>
</html>