(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lcEmlPath
LOCAL loEmail
LOCAL lnSuccess
LOCAL lnNumDigests
LOCAL i
LOCAL loEDigest
LOCAL m

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

lcEmlPath = "qa_data/eml/multipart_digest.eml"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email')
loEmail = CreateObject('Chilkat.Email')

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

lnSuccess = loEmail.LoadEml(lcEmlPath)
IF (lnSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
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 = 1) THEN
        ? "    Message = " + m
    ENDIF

    RELEASE loEDigest
    i = i + 1
ENDDO

RELEASE loEmail