Iterate Email Headers

Demonstrates how to iterate over the email header fields.

Download Chilkat Email ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set email = CreateObject("Chilkat.Email2")

'  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
    MsgBox email.LastErrorText
    WScript.Quit
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)
        outFile.WriteLine(i)
        outFile.WriteLine(name)
        outFile.WriteLine(value)

    Next

End If

outFile.Close