Xojo Plugin

Iterate MIME Parts of an Email

See more Email Object Examples

Demonstrates how to iterate over the MIME sub-parts of an email, and retrieve the content of each MIME sub-part body.

Note: This example requires some new features added to Chilkat v9.5.0.95.

Xojo Plugin

Dim success As Boolean
success = False

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

// See the following Chilkat post to Quickly Understand Email MIME

Dim email As New Chilkat.Email

success = email.LoadEml("qa_data/eml/sample.eml")
If (success = False) Then
    System.DebugLog("Failed to load .eml")
    Return
End If

Dim sbContentType As New Chilkat.StringBuilder
Dim caseSensitive As Boolean
caseSensitive = False

// Get the total number of non-multipart MIME sub-parts.
// (This is a simple way of iterating over all the MIME leaf parts regardless of the MIME tree structure)
Dim inlineOnly As Boolean
inlineOnly = False
Dim excludeAttachments As Boolean
excludeAttachments = False
Dim searchSpec As String
searchSpec = "*/*"

Dim numParts As Int32
numParts = email.GetNumPartsOfType(searchSpec,inlineOnly,excludeAttachments)
Dim i As Int32
i = 0
While i < numParts
    // What is the Content-Type of this MIME part?
    success = sbContentType.Append(email.GetNthContentType(i,searchSpec,inlineOnly,excludeAttachments))
    If (sbContentType.StartsWith("text/",caseSensitive) = True) Then
        // Get the text body of this MIME part.
        Dim textBody As String
        textBody = email.GetNthTextPartOfType(i,searchSpec,inlineOnly,excludeAttachments)
        System.DebugLog("Got text body for " + sbContentType.GetAsString())
    Else
        If (sbContentType.ContentsEqual("message/rfc822",caseSensitive) = True) Then
            // If the Content-Type is message/rfc822, then the MIME body for this part contains a full embedded MIME messages.
            // Your application could load it into a Chilkat email object and recursively process...
            Dim attachedEmail As New Chilkat.Email
            Dim bdMime As New Chilkat.BinData
            success = email.GetNthBinaryPartOfTypeBd(i,searchSpec,inlineOnly,excludeAttachments,bdMime)
            success = attachedEmail.SetFromMimeBd(bdMime)
            // Now your app can recursively process the attachedEmail...
        Else
            // Get the bytes of this MIME body part.
            Dim bd As New Chilkat.BinData
            success = email.GetNthBinaryPartOfTypeBd(i,searchSpec,inlineOnly,excludeAttachments,bd)
            System.DebugLog("Got binary body for " + sbContentType.GetAsString() + " numBytes = " + Str(bd.NumBytes))
        End If

    End If

    sbContentType.Clear 
    i = i + 1
Wend