(VBScript) Extract Files from MIME

Extract files from a MIME message.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set mime = CreateObject("Chilkat_9_5_0.Mime")

success = mime.UnlockComponent("Anything for 30-day trial.")
If (success = 0) Then
    outFile.WriteLine("Failed to unlock component")
    WScript.Quit
End If

'  Load a MIME document from a file:
'  (.mht and .eml files contain MIME).
success = mime.LoadMimeFile("mst.mht")
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

' sa is a Chilkat_9_5_0.StringArray
Set sa = mime.ExtractPartsToFiles("/temp/mimeParts")
If (sa Is Nothing ) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

n = sa.Count

'  Display the filepaths of the files created:
For i = 0 To n - 1
    outFile.WriteLine(sa.GetString(i))
Next

outFile.Close