(Excel) 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.

Download Excel Class Modules Chilkat Excel Class Modules

Dim email As Chilkat.Email
Set email = Chilkat.NewEmail

success = email.LoadEml("qa_data/eml/happyHour.eml")
If (success <> True) Then
    Debug.Print email.LastErrorText
    Exit Sub
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.

    unpackDir = "qa_output/emails"

    partsSubdir = "images"

    htmlFilename = "happyHour.html"
    success = email.UnpackHtml(unpackDir,htmlFilename,partsSubdir)
    If (success <> True) Then
        Debug.Print email.LastErrorText
        Exit Sub
    End If

    Debug.Print "Success."
End If