(Classic ASP) Iterate MIME Parts of an Email

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.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' 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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email")
set email = Server.CreateObject("Chilkat.Email")

success = email.LoadEml("qa_data/eml/sample.eml")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to load .eml") & "</pre>"
    Response.End
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbContentType = Server.CreateObject("Chilkat.StringBuilder")
caseSensitive = 0

' 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)
inlineOnly = 0
excludeAttachments = 0
searchSpec = "*/*"

numParts = email.GetNumPartsOfType(searchSpec,inlineOnly,excludeAttachments)
i = 0
Do 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) = 1) Then
        ' Get the text body of this MIME part.
        textBody = email.GetNthTextPartOfType(i,searchSpec,inlineOnly,excludeAttachments)
        Response.Write "<pre>" & Server.HTMLEncode( "Got text body for " & sbContentType.GetAsString()) & "</pre>"
    Else
        If (sbContentType.ContentsEqual("message/rfc822",caseSensitive) = 1) 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...
            ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email")
            set attachedEmail = Server.CreateObject("Chilkat.Email")
            ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
            set bdMime = Server.CreateObject("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.
            ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
            set bd = Server.CreateObject("Chilkat.BinData")
            success = email.GetNthBinaryPartOfTypeBd(i,searchSpec,inlineOnly,excludeAttachments,bd)
            Response.Write "<pre>" & Server.HTMLEncode( "Got binary body for " & sbContentType.GetAsString() & " numBytes = " & bd.NumBytes) & "</pre>"
        End If

    End If

    sbContentType.Clear 
    i = i + 1
Loop

%>
</body>
</html>