(DataFlex) 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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoEmail
    Boolean iSuccess
    String sUnpackDir
    String sPartsSubdir
    String sHtmlFilename
    String sTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

    Get ComLoadEml Of hoEmail "qa_data/eml/happyHour.eml" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Is this an HTML email?
    Get ComHasHtmlBody Of hoEmail To bTemp1
    If (bTemp1 = True) Begin

        // Unpack the HTML to files.  The image and css URLs
        // in the HTML are modified to point to the files extracted to disk.
        Move "qa_output/emails" To sUnpackDir
        Move "images" To sPartsSubdir
        Move "happyHour.html" To sHtmlFilename
        Get ComUnpackHtml Of hoEmail sUnpackDir sHtmlFilename sPartsSubdir To iSuccess
        If (iSuccess <> True) Begin
            Get ComLastErrorText Of hoEmail To sTemp1
            Showln sTemp1
            Procedure_Return
        End

        Showln "Success."
    End



End_Procedure