Decode Binary MIME Content

Download Chilkat MIME ActiveX

Decode the binary content in a MIME message.

LOCAL loMime
LOCAL lnSuccess
LOCAL loMimePart
LOCAL loJpgPart

loMime = CreateObject('Chilkat.Mime')

lnSuccess = loMime.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX("Failed to unlock component")
    QUIT
ENDIF

lnSuccess = loMime.LoadMimeFile("mm7.txt")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loMime.LastErrorText)
    QUIT
ENDIF

*  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)
loMimePart = loMime.GetPart(1)
loJpgPart = loMimePart.GetPart(1)
RELEASE loMimePart

*  Save the decoded body to a file.
*  The "Name" property contains "kl20.jpg"
lnSuccess = loJpgPart.SaveBody(loJpgPart.Name)
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loJpgPart.LastErrorText)
    RELEASE loJpgPart
    QUIT
ENDIF

=MESSAGEBOX("Success!")

RELEASE loJpgPart