Classic ASP
Load .eml and Examine the Structure, Attachments, and Related Items

Demonstrates how to load examine the MIME structure of a .eml, and also examine the attachment and related item filenames, attached messages, and multipart/report and DSN information.
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

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

emlPath = "C:/AAWorkarea/beatrix/roesner.eml"

set mime = Server.CreateObject("Chilkat.Mime")

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

Response.Write "<pre>" & Server.HTMLEncode( "---- MIME structure ----") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( mime.GetStructure("text")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "------------------------") & "</pre>"

set email = Server.CreateObject("Chilkat.Email")
success = email.LoadEml(emlPath)

' Was this a signed and/or encrypted email?
' If so, then loading the .eml automatically unwraps
' (i.e. verifies signatures and decrypts) and the resultant
' email is what existed prior to signing/encrypting.
Response.Write "<pre>" & Server.HTMLEncode( "Email was Signed: " & email.ReceivedSigned) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Email was Encrypted: " & email.ReceivedEncrypted) & "</pre>"
If (email.ReceivedSigned = 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Signature(s) valid = " & email.SignaturesValid) & "</pre>"
End If

If (email.ReceivedEncrypted = 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Decrypted successfully = " & email.Decrypted) & "</pre>"
End If

i = 0
numAttach = email.NumAttachments
Response.Write "<pre>" & Server.HTMLEncode( "Number of attachments = " & numAttach) & "</pre>"

Do While i < numAttach
    Response.Write "<pre>" & Server.HTMLEncode( "---- Attachment " & i) & "</pre>"

    ' Examine the filename (if any)
    Response.Write "<pre>" & Server.HTMLEncode( "filename: " & email.GetAttachmentFilename(i)) & "</pre>"
    ' Examine the content-ID (if any)
    Response.Write "<pre>" & Server.HTMLEncode( "Content-ID: " & email.GetAttachmentContentID(i)) & "</pre>"
    ' Examine the content-type
    Response.Write "<pre>" & Server.HTMLEncode( "Content-Type: " & email.GetAttachmentContentType(i)) & "</pre>"
    ' Examine the content-disposition
    Response.Write "<pre>" & Server.HTMLEncode( "Content-Disposition" & email.GetAttachmentHeader(i,"content-disposition")) & "</pre>"
    ' Examine the attachment size:
    Response.Write "<pre>" & Server.HTMLEncode( "Size (in bytes) of the attachment: " & email.GetAttachmentSize(i)) & "</pre>"

    i = i + 1
Loop
Response.Write "<pre>" & Server.HTMLEncode( "--") & "</pre>"

' Now for the related items.

' Note: A MIME sub-part can potentially be both a related item AND an attachment.
' The typical case is when the item is contained under the multipart/related enclosure and 
' the item also has a "Content-Disposition" header indicating "attachment".
' The location within multipart/related makes it a "related item", yet the Content-Disposition can also make it semantically an attachment.
' Related items and attachments are not necessarily mutually exclusive.

numRelated = email.NumRelatedItems
Response.Write "<pre>" & Server.HTMLEncode( "Number of related items = " & numRelated) & "</pre>"
i = 0
Do While i < numRelated
    Response.Write "<pre>" & Server.HTMLEncode( "---- Related Item " & i) & "</pre>"

    ' Examine the filename (if any)
    Response.Write "<pre>" & Server.HTMLEncode( "filename: " & email.GetRelatedFilename(i)) & "</pre>"
    ' Examine the content-ID (if any)
    Response.Write "<pre>" & Server.HTMLEncode( "Content-ID: " & email.GetRelatedContentID(i)) & "</pre>"
    ' Examine the content-type
    Response.Write "<pre>" & Server.HTMLEncode( "Content-Type: " & email.GetRelatedContentType(i)) & "</pre>"
    ' Examine the content-location (if any)
    Response.Write "<pre>" & Server.HTMLEncode( "Content-Location" & email.GetRelatedContentLocation(i)) & "</pre>"

    i = i + 1
Loop

' The email could also have attached messages.
' An attached message is another email that was attached to this email.
set em = Server.CreateObject("Chilkat.Email")
numAttachedMessages = email.NumAttachedMessages
Response.Write "<pre>" & Server.HTMLEncode( "Number of attached messages = " & numAttachedMessages) & "</pre>"
i = 0
Do While i < numAttachedMessages
    Response.Write "<pre>" & Server.HTMLEncode( "---- Attached message " & i) & "</pre>"

    ' Examine the attached email
    success = email.GetAttachedEmail(i,em)
    Response.Write "<pre>" & Server.HTMLEncode( "from: " & em.From) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "subject: " & em.Subject) & "</pre>"
    i = i + 1
Loop

' An email could also be a multipart/report email. 
' This is a DSN (Delivery Status Notification)
' The NumReports property indicates how many "reports" exist.
numReports = email.NumReports
Response.Write "<pre>" & Server.HTMLEncode( "Number of reports = " & numReports) & "</pre>"
i = 0
Do While i < numReports
    Response.Write "<pre>" & Server.HTMLEncode( "---- Report " & i) & "</pre>"
    ' Get the raw report data...
    Response.Write "<pre>" & Server.HTMLEncode( email.GetReport(i)) & "</pre>"
    i = i + 1
Loop

' If the email is a multipart/report, then the information
' from the message/delivery-status part of the email can be retrieved:
If (email.IsMultipartReport() = 1) Then

    Response.Write "<pre>" & Server.HTMLEncode( "--- Delivery Status Information:") & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Status: " & email.GetDeliveryStatusInfo("Status")) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Action: " & email.GetDeliveryStatusInfo("Action")) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Reporting-MTA: " & email.GetDeliveryStatusInfo("Reporting-MTA")) & "</pre>"

    set jsonDsnInfo = Server.CreateObject("Chilkat.JsonObject")
    success = email.GetDsnInfo(jsonDsnInfo)
    jsonDsnInfo.EmitCompact = 0
    Response.Write "<pre>" & Server.HTMLEncode( jsonDsnInfo.Emit()) & "</pre>"
End If


%>
</body>
</html>