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)

LOCAL loEmail
LOCAL lnSuccess
LOCAL n
LOCAL i
LOCAL lcName
LOCAL lcValue

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

lnSuccess = loEmail.LoadEml("testReceivedHdrs.eml")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loEmail.LastErrorText)
    QUIT
ENDIF

*  How many header fields?

n = loEmail.NumHeaderFields
IF (n > 0) THEN

    *  Display the name and value of each header:

    FOR i = 0 TO n - 1
        lcName = loEmail.GetHeaderFieldName(i)
        lcValue = loEmail.GetHeaderFieldValue(i)
        ? STR(i)
        ? lcName
        ? lcValue

    NEXT

ENDIF