(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

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

lcEmlPath = "qa_data/eml/multipart_digest.eml"

loEmail = createobject("CkEmail")

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

llSuccess = loEmail.LoadEml(lcEmlPath)
if (llSuccess <> .T.) then
    ? loEmail.LastErrorText
    release loEmail
    return
endif

lnNumDigests = loEmail.NumDigests
? "num digests = " + str(lnNumDigests)

i = 0
do while i < lnNumDigests
    loEDigest = loEmail.GetDigest(i)
    ? str(i) + ":" + loEDigest.FromAddress + ", " + loEDigest.Subject
    m = loEDigest.GetHeaderField("Message")
    if (loEDigest.LastMethodSuccess = .T.) then
        ? "    Message = " + m
    endif

    release loEDigest
    i = i + 1
enddo


release loEmail