Extract Files from MIME

Extract files from a MIME message.

Download Chilkat MIME ActiveX

<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("Failed to unlock component") & "</pre>"

End If

'  Load a MIME document from a file:
'  (.mht and .eml files contain MIME).
success = mime.LoadMimeFile("mst.mht")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode(mime.LastErrorText) & "</pre>"

End If

' sa is a Chilkat.CkStringArray
Set sa = mime.ExtractPartsToFiles("c:/temp/mimeParts")
If (sa Is Nothing ) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"

End If

n = sa.Count

'  Display the filepaths of the files created:
For i = 0 To n - 1
    Response.Write "<pre>" & Server.HTMLEncode( sa.GetString(i)) & "</pre>"
Next
%>
</body>
</html>