Extract Files from MIME

Extract files from a MIME message.

Download Chilkat MIME ActiveX

LOCAL loMime
LOCAL lnSuccess
LOCAL loSa
LOCAL i
LOCAL n

loMime = CreateObject('Chilkat.Mime')

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

*  Load a MIME document from a file:
*  (.mht and .eml files contain MIME).
lnSuccess = loMime.LoadMimeFile("mst.mht")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX(loMime.LastErrorText)
    QUIT
ENDIF

loSa = loMime.ExtractPartsToFiles("c:/temp/mimeParts")
IF (loSa = NULL ) THEN
    ? loMime.LastErrorText
    QUIT
ENDIF

n = loSa.Count

*  Display the filepaths of the files created:
FOR i = 0 TO n - 1
    ? loSa.GetString(i)
NEXT