PureBasic

Create an EML Message from a URL into a ZIP

Demonstrates Mht.GetAndZipEML, which creates an EML MIME message from a live web page and stores it as an entry inside a ZIP archive.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background. The EML output is a MIME email message containing the HTML page and its referenced resources, suitable for sending the page as an HTML email. The ZIP is created if it does not already exist; otherwise the entry is added to it.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkMht.pb"

Procedure ChilkatExample()

    success.i = 0

    mht.i = CkMht::ckCreate()
    If mht.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ;  The file paths are relative to the application's current working directory.  Absolute paths
    ;  may also be used.  Supply the paths appropriate to your own environment.

    ;  Create an EML MIME message from a live web page and store it as an entry inside a ZIP archive.  The
    ;  2nd argument is the entry name within the ZIP; the 3rd is the ZIP file path.
    success = CkMht::ckGetAndZipEML(mht,"https://example-code.com/crumb/email.html","page.eml","qa_output/page.zip")
    If success = 0
        Debug CkMht::ckLastErrorText(mht)
        CkMht::ckDispose(mht)
        ProcedureReturn
    EndIf

    Debug "EML stored in the ZIP archive."


    CkMht::ckDispose(mht)


    ProcedureReturn
EndProcedure