(PureBasic) Parsing a Multipart/Digest Email

This example demonstrates how to parse a multipart/digest email. An email parsed by this sample could have a MIME structure as follows:

multipart/mixed
    text/plain
    text/plain
    multipart/digest
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
        message/rfc822
    text/plain

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    ; Note: This example requires Chilkat v9.5.0.66 or greater.

    emlPath.s = "qa_data/eml/multipart_digest.eml"

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

    ; For this example, we'll load the email from a .eml.
    ; The email could alternatively be loaded as a result of downloading from an IMAP or POP3 server..

    success.i = CkEmail::ckLoadEml(email,emlPath)
    If success <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    numDigests.i = CkEmail::ckNumDigests(email)
    Debug "num digests = " + Str(numDigests)

    i.i = 0
    While i < numDigests
        eDigest.i = CkEmail::ckGetDigest(email,i)
        Debug Str(i) + ":" + CkEmail::ckFromAddress(eDigest) + ", " + CkEmail::ckSubject(eDigest)
        m.s = CkEmail::ckGetHeaderField(eDigest,"Message")
        If CkEmail::ckLastMethodSuccess(eDigest) = 1
            Debug "    Message = " + m
        EndIf

        CkEmail::ckDispose(eDigest)

        i = i + 1
    Wend


    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure