(Tcl) Get the Email Received Date/Time

Get's the date/time from the topmost Received header. The date/time of when you received an email may be different than the date/time stored in the Date header field, which if truthful, is the date when the email was sent.

The Received header field will look something like this:

Received: from mail.example.com (mail.example.com [99.255.255.99])
 by inbound-smtp.us-west-2.amazonaws.com with SMTP id 72ma443vs1g0o6vqd8erojkpss35s0dt32h323o1
 for admin@chilkatsoft.com;
 Wed, 25 Jul 2018 08:04:23 +0000 (UTC)

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set email [new_CkEmail]

set success [CkEmail_LoadEml $email "qa_data/eml/p.eml"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

set sb [new_CkStringBuilder]

CkStringBuilder_Append $sb [CkEmail_getHeaderField $email "Received"]

# Replace semicolons with CRLF's
set numReplaced [CkStringBuilder_Replace $sb ";" "\r\n"]

set st [new_CkStringTable]

CkStringTable_AppendFromSb $st $sb

if {[CkStringTable_get_Count $st] == 0} then {
    puts "Should have at least one line.."
    delete_CkEmail $email
    delete_CkStringBuilder $sb
    delete_CkStringTable $st
    exit
}

# The date/time string is the last line in the string table.
CkStringBuilder_SetString $sb [CkStringTable_stringAt $st [expr [CkStringTable_get_Count $st] - 1]]
CkStringBuilder_Trim $sb

puts "Received date/time = [CkStringBuilder_getAsString $sb]"

delete_CkEmail $email
delete_CkStringBuilder $sb
delete_CkStringTable $st