(Visual FoxPro) Extract Files from MIME

Extract files from a MIME message.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loMime
LOCAL loSt
LOCAL n
LOCAL i

lnSuccess = 0

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

loMime = CreateObject('Chilkat.Mime')

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

loSt = CreateObject('Chilkat.StringTable')
lnSuccess = loMime.PartsToFiles("/temp/mimeParts",loSt)
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    RELEASE loSt
    CANCEL
ENDIF

n = loSt.Count

* Display the paths of the files created:
i = 0
DO WHILE i < n
    ? loSt.StringAt(i)
    i = i + 1
ENDDO

RELEASE loMime
RELEASE loSt