Get Received Headers from an Email

Retrieve "Received" headers from an email.

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim email As New Chilkat.Email()

'  First, load an email.  This example loads an email from
'  a file.
Dim success As Boolean
success = email.LoadEml("testReceivedHdrs.eml")
If (success <> true) Then
    MsgBox(email.LastErrorText)
    Exit Sub
End If


Dim n As Long
n = email.NumHeaderFields()

'  List the Received header fields:
Dim i As Long
Dim name As String
For i = 0 To n - 1
    name = email.GetHeaderFieldName(i)

    If (name.Equals("received",StringComparison.CurrentCultureIgnoreCase)) Then

        TextBox1.Text = TextBox1.Text & email.GetHeaderFieldValue(i) & vbCrLf

    End If
Next