Xojo Plugin

Iterate Email Headers

Demonstrates how to iterate over the email header fields. Xojo Plugin

Dim success As Boolean
success = False

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...

success = email.LoadEml("testReceivedHdrs.eml")
If (success <> True) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

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

    // Display the name and value of each header:
    Dim i As Int32
    Dim name As String
    Dim value As String
    For i = 0 To n - 1
        name = email.GetHeaderFieldName(i)
        value = email.GetHeaderFieldValue(i)
        System.DebugLog(Str(i))
        System.DebugLog(name)
        System.DebugLog(value)

    Next

End If