Iterate Email Headers

Demonstrates how to iterate over the email header fields.

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim email As New 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...
Dim success As Boolean
success = email.LoadEml("testReceivedHdrs.eml")
If (success <> true) Then
    MsgBox(email.LastErrorText)
    Exit Sub
End If


'  How many header fields?
Dim n As Long
n = email.NumHeaderFields()
If (n > 0) Then

    '  Display the name and value of each header:
    Dim i As Long
    Dim name As String
    Dim value As String
    For i = 0 To n - 1
        name = email.GetHeaderFieldName(i)
        value = email.GetHeaderFieldValue(i)
        TextBox1.Text = TextBox1.Text & i & vbCrLf
        TextBox1.Text = TextBox1.Text & name & vbCrLf
        TextBox1.Text = TextBox1.Text & value & vbCrLf

    Next

End If