DataFlex

Count the Messages in a multipart/digest Email

Demonstrates the read-only Chilkat Email.NumDigests property, which is the number of message/rfc822 parts contained within a multipart/digest enclosure. If no such enclosure exists, the value is 0. Digest indexes are zero-based; use GetDigestEmail to retrieve an individual bundled message as its own Email object. This example loads a digest email and lists each message's subject.

Background: A multipart/digest is a way to package many separate emails inside one carrier message — historically used by mailing lists to send a single daily "digest" containing all of that day's posts. Each bundled item is a complete message/rfc822 email with its own headers and body. This differs from NumAttachedMessages, which counts nested messages attached to an ordinary email rather than the members of a digest enclosure.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoEmail
    Integer n
    Variant vDigestEmail
    Handle hoDigestEmail
    Integer i
    String sTemp1

    Move False To iSuccess

    //  Demonstrates the read-only Email.NumDigests property, which is the number of
    //  message/rfc822 parts contained within a multipart/digest enclosure.  If there is no
    //  multipart/digest enclosure, the value is 0.  Digest indexes are zero-based.

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

    //  Load a multipart/digest email (a single email that bundles many messages).
    Get ComLoadEml Of hoEmail "qa_data/eml/digest.eml" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComNumDigests Of hoEmail To n
    Showln "NumDigests = " n

    //  Retrieve each bundled message as its own Email object.
    Get Create (RefClass(cComChilkatEmail)) To hoDigestEmail
    If (Not(IsComObjectCreated(hoDigestEmail))) Begin
        Send CreateComObject of hoDigestEmail
    End

    For i From 0 To (n - 1)
        Get pvComObject of hoDigestEmail to vDigestEmail
        Get ComGetDigestEmail Of hoEmail i vDigestEmail To iSuccess
        Get ComSubject Of hoDigestEmail To sTemp1
        Showln "Digest " i " subject: " sTemp1
    Loop

    //  Note: Paths such as "qa_data/..." are relative local filesystem paths,
    //  relative to the current working directory of the running application.


End_Procedure