(Tcl) Get Email Date/Time

Demonstrates getting the email "Date" header field in a CkDateTime object.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set email [new_CkEmail]

# Load a .eml file into the email object.
set success [CkEmail_LoadEml $email "/home/users/chilkat/eml/myEml.eml"]

# dtTime is a CkDateTime
set dtTime [CkEmail_GetDt $email]
if {[expr [CkEmail_get_LastMethodSuccess $email] == 0]} then {
    puts "Email has no Date header field."
    delete_CkEmail $email
    exit
}

# Once we have the CkDateTime object, we can get the date/time in all sorts of formats:

# Get as a RFC822 GMT string:
set bLocalTime 0
puts [CkDateTime_getAsRfc822 $dtTime $bLocalTime]

# Get as an RFC822 string in the local timezone.
# (remember, the daylight savings that existed at the given time in the past is applied)
set bLocalTime 1
puts [CkDateTime_getAsRfc822 $dtTime $bLocalTime]

# Get as a 32-bit UNIX time (local or GMT..)
# The Unix time is number of seconds since the Epoch, 1970-01-01 00:00:00 +0000 (UTC). 
set unixTime [CkDateTime_GetAsUnixTime $dtTime $bLocalTime]
puts "Unix time: $unixTime"

# One can also get the as a "DtObj" object for accessing the individual
# parts of the date/time, such as month, day, year, hour, minute, etc.
# The DtObj can be obtained in the GMT or local timezone:
# dtObj is a CkDtObj
set dtObj [CkDateTime_GetDtObj $dtTime $bLocalTime]
if {[expr [CkDateTime_get_LastMethodSuccess $dtTime] == 0]} then {
    puts "This should never really happen!"
    delete_CkEmail $email
    exit
}

puts [CkDtObj_get_Day $dtObj]-[CkDtObj_get_Month $dtObj]-[CkDtObj_get_Year $dtObj] [CkDtObj_get_Hour $dtObj]:[CkDtObj_get_Minute $dtObj]:[CkDtObj_get_Second $dtObj]

delete_CkDtObj $dtObj

delete_CkDateTime $dtTime


delete_CkEmail $email