B4X

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. B4X

Dim success As Boolean = False

Dim email As ChilkatEmail
email.Initialize

success = email.LoadEml("qa_data/eml/happyHour.eml")
If success <> True Then
    Log(email.LastErrorText)
    Return
End If


'  Is this an HTML email?
If email.HasHtmlBody = True Then

    '  Unpack the HTML to files.  The image and css URLs
    '  in the HTML are modified to point to the files extracted to disk.
    Dim unpackDir As String = "qa_output/emails"
    Dim partsSubdir As String = "images"
    Dim htmlFilename As String = "happyHour.html"
    success = email.UnpackHtml(unpackDir, htmlFilename, partsSubdir)
    If success <> True Then
        Log(email.LastErrorText)
        Return
    End If


    Log("Success.")
End If