VBScript

Get a Header Field by Name

Demonstrates the Chilkat Email.GetHeaderField method, which returns the value of a header field by name. Header-field names are case-insensitive, so X-Priority and x-priority refer to the same field. This example reads several headers by name.

Background: Looking up a header by name is the quickest way to read a known field like Subject or a custom X- header. One caveat: some header names (such as Received) can legitimately appear more than once. When a field may repeat and you need every occurrence, enumerate by index with GetHeaderFieldName and GetHeaderFieldValue instead of looking up by name.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

'  Demonstrates the GetHeaderField method, which returns the value of a header field by
'  name.  Header-field names are case-insensitive.

set email = CreateObject("Chilkat.Email")
email.Subject = "Quarterly report"
email.From = "alice@example.com"
email.AddHeaderField "X-Priority","1"

'  Get header field values by name.
outFile.WriteLine("Subject = " & email.GetHeaderField("Subject"))
outFile.WriteLine("From = " & email.GetHeaderField("From"))
outFile.WriteLine("X-Priority = " & email.GetHeaderField("x-priority"))

outFile.Close