(Visual FoxPro) Get Email Date/Time

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loEmail
LOCAL lnSuccess
LOCAL loDtTime
LOCAL lnBLocalTime
LOCAL lnUnixTime
LOCAL loDtObj

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email')
loEmail = CreateObject('Chilkat.Email')

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

loDtTime = loEmail.GetDt()
IF (loEmail.LastMethodSuccess = 0) THEN
    ? "Email has no Date header field."
    RELEASE loEmail
    CANCEL
ENDIF

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

* Get as a RFC822 GMT string:
lnBLocalTime = 0
? loDtTime.GetAsRfc822(lnBLocalTime)

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

* 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(lnBLocalTime)
? "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 = loDtTime.GetDtObj(lnBLocalTime)
IF (loDtTime.LastMethodSuccess = 0) THEN
    ? "This should never really happen!"
    RELEASE loEmail
    CANCEL
ENDIF

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

RELEASE loDtObj
RELEASE loDtTime

RELEASE loEmail