Tcl

Get the Name of the Nth Header Field

Demonstrates the Chilkat Email.GetHeaderFieldName method, which returns the name of the Nth header field. The NumHeaderFields property gives the count, and indexing is zero-based. This example enumerates the names of all header fields.

Background: Enumerating headers by index — rather than looking them up by name — lets you discover which fields a message actually contains and see repeated fields (like multiple Received lines) in order. Pair GetHeaderFieldName with GetHeaderFieldValue at the same index to walk the entire header block as name/value pairs.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

#  Demonstrates the GetHeaderFieldName method, which returns the name of the Nth header
#  field.  The NumHeaderFields property gives the number of header fields; indexing is
#  zero-based.

set email [new_CkEmail]

CkEmail_put_Subject $email "Enumerate header names"
CkEmail_put_From $email "alice@example.com"
CkEmail_AddTo $email "Bob" "bob@example.com"

set n [CkEmail_get_NumHeaderFields $email]

for {set i 0} {$i <= [expr $n - 1]} {incr i} {
    puts "Header $i name: [CkEmail_getHeaderFieldName $email $i]"
}

delete_CkEmail $email