Visual Basic 6.0

Iterate Email Headers

Demonstrates how to iterate over the email header fields. Visual Basic 6.0

Dim success As Long
success = 0

Dim email As New ChilkatEmail

' 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
    Debug.Print 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)
        Debug.Print i
        Debug.Print name
        Debug.Print value

    Next

End If