Extract Files from MIME

Extract files from a MIME message.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim mime As New Chilkat.Mime()

Dim success As Boolean
success = mime.UnlockComponent("Anything for 30-day trial.")
If (success = false) Then
    MsgBox("Failed to unlock component")
    Exit Sub
End If


'  Load a MIME document from a file:
'  (.mht and .eml files contain MIME).
success = mime.LoadMimeFile("mst.mht")
If (success = false) Then
    MsgBox(mime.LastErrorText)
    Exit Sub
End If


Dim sa As Chilkat.StringArray

sa = mime.ExtractPartsToFiles("c:/temp/mimeParts")
If (sa Is Nothing ) Then
    TextBox1.Text = TextBox1.Text & mime.LastErrorText & vbCrLf
    Exit Sub
End If


Dim i As Long
Dim n As Long
n = sa.Count

'  Display the filepaths of the files created:
For i = 0 To n - 1
    TextBox1.Text = TextBox1.Text & sa.GetString(i) & vbCrLf
Next