(DataFlex) MIME Body vs. Sub-Parts

Explains the difference between sub-parts and body.

MIME documents (i.e. messages) can have a nested structure. The simplest MIME message contains a header followed by content (possibly encoded). The header is delimited from the content by two consecutive CRLF's.

A MIME message may be multipart. If so, then the Content-Type header field indicates "multipart" and the content the follows the header is itself a MIME message, which may also be multipart, etc. You can see how MIME messages effectively have a tree structure. The non-leaf nodes have Content-Types that are "multipart/" and the leaf nodes have non-multipart Content-Types.

The Chilkat MIME component/library uses two terms that need to be understood in order to effectively use the API. These are "body" and "sub-part". A multipart node has 1 or more sub-parts, but its body is empty. A leaf node (i.e. non-multipart node) has no sub-parts, but the body is (usually) non-empty.

This example creates a multipart MIME message and shows the results of getting the sub-parts and body of each node.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoMime
    Variant vPart1
    Handle hoPart1
    Boolean iSuccess
    Variant vPart2
    Handle hoPart2
    Integer n
    Variant vPart
    Handle hoPart
    String sTemp1

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatMime)) To hoMime
    If (Not(IsComObjectCreated(hoMime))) Begin
        Send CreateComObject of hoMime
    End

    // Create a multipart/mixed MIME message with two sub-parts.
    // We'll use the Base64 encoding for the 2nd sub-part.
    Get Create (RefClass(cComChilkatMime)) To hoPart1
    If (Not(IsComObjectCreated(hoPart1))) Begin
        Send CreateComObject of hoPart1
    End
    Get ComSetBodyFromPlainText Of hoPart1 "This is part 1" To iSuccess

    Get Create (RefClass(cComChilkatMime)) To hoPart2
    If (Not(IsComObjectCreated(hoPart2))) Begin
        Send CreateComObject of hoPart2
    End
    Get ComSetBodyFromPlainText Of hoPart2 "This is part 2" To iSuccess
    Set ComEncoding Of hoPart2 To "base64"

    Get ComNewMultipartMixed Of hoMime To iSuccess
    Set ComUseMmDescription Of hoMime To False
    Get pvComObject of hoPart1 to vPart1
    Get ComAppendPart Of hoMime vPart1 To iSuccess
    Get pvComObject of hoPart2 to vPart2
    Get ComAppendPart Of hoMime vPart2 To iSuccess

    // Show the MIME message:
    Get ComGetMime Of hoMime To sTemp1
    Showln sTemp1

    // Here's the MIME:
    // Content-Type: multipart/mixed;
    // 	boundary="------------040605030407000302060008"
    // 
    // --------------040605030407000302060008
    // Content-Type: text/plain;
    // 	 charset="us-ascii"
    // Content-Transfer-Encoding: 7bit
    // 
    // This is part 1
    // --------------040605030407000302060008
    // Content-Type: text/plain;
    // 	 charset="us-ascii"
    // Content-Transfer-Encoding: base64
    // 
    // VGhpcyBpcyBwYXJ0IDI=
    // 
    // --------------040605030407000302060008--

    // If we examine the root node of the MIME message, 
    // we see that it has 2 sub-parts and the body is empty (as expected)
    Get ComNumParts Of hoMime To n
    Showln "Num Parts = " n
    Get ComGetBodyDecoded Of hoMime To sTemp1
    Showln "Body = " sTemp1

    // The GetEntireBody retrieves the entire content after
    // the header.  (Perhaps GetEntireBody should've been named
    // GetEntireContent to make it less confusing...)
    Showln "---- EntireBody:"
    Get ComGetEntireBody Of hoMime To sTemp1
    Showln sTemp1
    Showln "********"

    // Now examine the 2nd sub-part.  It has a body encoded
    // using base64.  Get the contents of the body in both
    // decoded and encoded forms:

    // index 0 is the 1st part, index 1 is the 2nd part.
    Get ComGetPart Of hoMime 1 To vPart
    If (IsComObject(vPart)) Begin
        Get Create (RefClass(cComChilkatMime)) To hoPart
        Set pvComObject Of hoPart To vPart
    End
    Showln "Decoded Body:"
    Get ComGetBodyDecoded Of hoPart To sTemp1
    Showln sTemp1
    Showln "Encoded Body:"
    Get ComGetBodyEncoded Of hoPart To sTemp1
    Showln sTemp1

    Send Destroy of hoPart


End_Procedure