Decode Binary MIME Content

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

Decode the binary content in a MIME message.

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


success = mime.LoadMimeFile("mm7.txt")
If (success = false) Then
    MsgBox(mime.LastErrorText)
    Exit Sub
End If


Dim mimePart As Chilkat.Mime
Dim jpgPart As Chilkat.Mime

'  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)
mimePart = mime.GetPart(1)
jpgPart = mimePart.GetPart(1)


'  Save the decoded body to a file.
'  The "Name" property contains "kl20.jpg"
success = jpgPart.SaveBody(jpgPart.Name)
If (success = false) Then
    MsgBox(jpgPart.LastErrorText)

    Exit Sub
End If


MsgBox("Success!")