Classic ASP

Iterate Email Headers

Demonstrates how to iterate over the email header fields.

Chilkat Classic ASP Downloads

Classic ASP

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

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

' First, load an email from a file. 
' Note: an email object may be loaded from a file, or
' downloaded directly from a POP3 or IMAP server...

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

' How many header fields?

n = email.NumHeaderFields
If (n > 0) Then

    ' Display the name and value of each header:

    For i = 0 To n - 1
        name = email.GetHeaderFieldName(i)
        value = email.GetHeaderFieldValue(i)
        Response.Write "<pre>" & Server.HTMLEncode( i) & "</pre>"
        Response.Write "<pre>" & Server.HTMLEncode( name) & "</pre>"
        Response.Write "<pre>" & Server.HTMLEncode( value) & "</pre>"

    Next

End If


%>
</body>
</html>