Lianja

Get Email Date/Time

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

llSuccess = .F.

loEmail = createobject("CkEmail")

// Load a .eml file into the email object.
llSuccess = loEmail.LoadEml("/home/users/chilkat/eml/myEml.eml")

loDtTime = createobject("CkDateTime")
loDtTime.SetFromRfc822(loEmail.EmailDateStr)

// Once we have the CkDateTime object, we can get the date/time in many different formats:

// Get as a RFC822 GMT string:
llBLocalTime = .F.
? loDtTime.GetAsRfc822(llBLocalTime)

// Get as an RFC822 string in the local timezone.
// (remember, the daylight savings that existed at the given time in the past is applied)
llBLocalTime = .T.
? loDtTime.GetAsRfc822(llBLocalTime)

// 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). 
lnUnixTime = loDtTime.GetAsUnixTime(llBLocalTime)
? "Unix time: " + str(lnUnixTime)

// 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:
loDtObj = createobject("CkDtObj")
loDtTime.ToDtObj(llBLocalTime,loDtObj)

if (loDtTime.LastMethodSuccess = .F.) then
    ? "This should never really happen!"
    release loEmail
    release loDtTime
    release loDtObj
    return
endif

? str(loDtObj.Day) + "-" + str(loDtObj.Month) + "-" + str(loDtObj.Year) + " " + str(loDtObj.Hour) + ":" + str(loDtObj.Minute) + ":" + str(loDtObj.Second)


release loEmail
release loDtTime
release loDtObj