(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")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mime")
set mime = CreateObject("Chilkat.Mime")

' 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.StringArray
Set sa = mime.ExtractPartsToFiles("/temp/mimeParts")
If (mime.LastMethodSuccess = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

i = 0
n = sa.Count

' Display the filepaths of the files created:
Do While i < n
    outFile.WriteLine(sa.GetString(i))
    i = i + 1
Loop


outFile.Close