Decode Binary MIME Content

Download Chilkat MIME ActiveX

Decode the binary content in a MIME message.

Dim mime As New ChilkatMime

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

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

Dim mimePart As ChilkatMime
Dim jpgPart As ChilkatMime

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

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

    Exit Sub
End If

MsgBox "Success!"