PowerBuilder

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

integer li_rc
integer li_Success
oleobject loo_Email
string ls_UnpackDir
string ls_PartsSubdir
string ls_HtmlFilename

li_Success = 0

loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_Email
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Success = loo_Email.LoadEml("qa_data/eml/happyHour.eml")
if li_Success <> 1 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Email
    return
end if

// Is this an HTML email?
if loo_Email.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.
    ls_UnpackDir = "qa_output/emails"
    ls_PartsSubdir = "images"
    ls_HtmlFilename = "happyHour.html"
    li_Success = loo_Email.UnpackHtml(ls_UnpackDir,ls_HtmlFilename,ls_PartsSubdir)
    if li_Success <> 1 then
        Write-Debug loo_Email.LastErrorText
        destroy loo_Email
        return
    end if

    Write-Debug "Success."
end if



destroy loo_Email