Visual FoxPro

MIME CurrentDateTime Property

Demonstrates the read-only CurrentDateTime property, which returns the current local date and time formatted as an Internet message date including the numeric UTC offset. The example uses it to populate a Date header field.

Background. Internet message dates follow the RFC 5322 format, for example Fri, 21 Nov 1997 09:55:06 -0600. CurrentDateTime produces a value in that form for use in message headers.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loMime
LOCAL lcNow
LOCAL lcHead

lnSuccess = 0

loMime = CreateObject('Chilkat.Mime')
lnSuccess = loMime.SetBodyFromPlainText("Message with a Date header.")
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    CANCEL
ENDIF

*  CurrentDateTime returns the current local date and time formatted as an Internet message date,
*  including the numeric UTC offset, for example: Fri, 21 Nov 1997 09:55:06 -0600
lcNow = loMime.CurrentDateTime
? "Current date/time: " + lcNow

*  It can be used to populate a Date header field.
loMime.SetHeaderField("Date",lcNow)

lcHead = loMime.GetEntireHead()
IF (loMime.LastMethodSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    CANCEL
ENDIF

? lcHead

RELEASE loMime