(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    String sEmlPath
    Handle hoEmail
    Boolean iSuccess
    Integer iNumDigests
    Integer i
    Variant vEDigest
    Handle hoEDigest
    String m
    String sTemp1
    String sTemp2
    Boolean bTemp1

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

    Move "qa_data/eml/multipart_digest.eml" To sEmlPath

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

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

    Get ComLoadEml Of hoEmail sEmlPath To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComNumDigests Of hoEmail To iNumDigests
    Showln "num digests = " iNumDigests

    Move 0 To i
    While (i < iNumDigests)
        Get ComGetDigest Of hoEmail i To vEDigest
        If (IsComObject(vEDigest)) Begin
            Get Create (RefClass(cComChilkatEmail)) To hoEDigest
            Set pvComObject Of hoEDigest To vEDigest
        End
        Get ComFromAddress Of hoEDigest To sTemp1
        Get ComSubject Of hoEDigest To sTemp2
        Showln i ":" sTemp1 ", " sTemp2
        Get ComGetHeaderField Of hoEDigest "Message" To m
        Get ComLastMethodSuccess Of hoEDigest To bTemp1
        If (bTemp1 = True) Begin
            Showln "    Message = " m
        End

        Send Destroy of hoEDigest
        Move (i + 1) To i
    Loop



End_Procedure