Classic ASP

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 Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

emlPath = "qa_data/eml/multipart_digest.eml"

set email = Server.CreateObject("Chilkat.Email")

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

success = email.LoadEml(emlPath)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( email.LastErrorText) & "</pre>"
    Response.End
End If

numDigests = email.NumDigests
Response.Write "<pre>" & Server.HTMLEncode( "num digests = " & numDigests) & "</pre>"

set eDigest = Server.CreateObject("Chilkat.Email")
i = 0
Do While i < numDigests
    success = email.GetDigestEmail(i,eDigest)
    Response.Write "<pre>" & Server.HTMLEncode( i & ":" & eDigest.FromAddress & ", " & eDigest.Subject) & "</pre>"
    m = eDigest.GetHeaderField("Message")
    If (eDigest.LastMethodSuccess = 1) Then
        Response.Write "<pre>" & Server.HTMLEncode( "    Message = " & m) & "</pre>"
    End If

    i = i + 1
Loop

%>
</body>
</html>