(Visual FoxPro) Unpack HTML Email to Files

Unpacks an HTML email into an HTML file and related files (images and style sheets). The links within the HTML are updated to point to the files unpacked and saved to disk.

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

LOCAL loEmail
LOCAL lnSuccess
LOCAL lcUnpackDir
LOCAL lcPartsSubdir
LOCAL lcHtmlFilename

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email')
loEmail = CreateObject('Chilkat.Email')

lnSuccess = loEmail.LoadEml("qa_data/eml/happyHour.eml")
IF (lnSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

* Is this an HTML email?
IF (loEmail.HasHtmlBody() = 1) THEN

    * Unpack the HTML to files.  The image and css URLs
    * in the HTML are modified to point to the files extracted to disk.
    lcUnpackDir = "qa_output/emails"
    lcPartsSubdir = "images"
    lcHtmlFilename = "happyHour.html"
    lnSuccess = loEmail.UnpackHtml(lcUnpackDir,lcHtmlFilename,lcPartsSubdir)
    IF (lnSuccess <> 1) THEN
        ? loEmail.LastErrorText
        RELEASE loEmail
        CANCEL
    ENDIF

    ? "Success."
ENDIF

RELEASE loEmail