(Tcl) Set the Email Date Header to the Current System Date/Time

Demonstrates how to set the Date header field of an email to the computer's current date/time. Note: When an email object is instantiated, the Date header field is automatically added and initialized to the current system date/time. The need to explicitly set the Date header could arise when loading an email from a .eml.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set email [new_CkEmail]

# At this point, a new email object has been instantiated, and it
# already has a Date header field containing the current date/time.
puts "Date: [CkEmail_emailDateStr $email]"

# We can also get the Date header like this:
puts "Date: [CkEmail_getHeaderField $email Date]"

# Load a .eml into the email object:
set success [CkEmail_LoadEml $email "myEmlFiles/someEmail.eml"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

# Show the Date that was in the .eml
puts "Date: [CkEmail_emailDateStr $email]"

# Now the Date header contains whatever was in the .eml
# Let's update it to the current system date/time..

set dateTime [new_CkDateTime]

CkDateTime_SetFromCurrentSystemTime $dateTime

set success [CkEmail_SetDt $email $dateTime]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    delete_CkDateTime $dateTime
    exit
}

# Now show that the Date is the current system time:
puts "Date: [CkEmail_emailDateStr $email]"
puts "Date: [CkEmail_getHeaderField $email Date]"

delete_CkEmail $email
delete_CkDateTime $dateTime