MIME CurrentDateTime Property

See more MIME Examples

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.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set mime = CreateObject("Chilkat.Mime")
success = mime.SetBodyFromPlainText("Message with a Date header.")
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

'  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
now = mime.CurrentDateTime
outFile.WriteLine("Current date/time: " & now)

'  It can be used to populate a Date header field.
success = mime.SetHeaderField("Date",now)

head = mime.GetEntireHead()
If (mime.LastMethodSuccess = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(head)

outFile.Close