(VBScript) Mime CurrentDateTime

The CurrentDateTime property is provide as a convenient way of getting the current date/time in RFC822 format, which is often needed for the MIME Date header field.

It is not actually a property of the MIME object. It simply returns the current date/time of the system.

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

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



' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mime")
set mime = CreateObject("Chilkat.Mime")
mime.SetBody "this is a test"
mime.ContentType = "text/plain"

' The CurrentDateTime property is just a convenient way of
' get the current date/time in RFC 822 format.  It saves us
' the trouble of looking elsewhere for this common need.
success = mime.SetHeaderField("Date",mime.CurrentDateTime)

outFile.WriteLine(mime.GetMime())

' The result:

' 	Content-Type: text/plain
' 	Date: Sat, 01 Oct 2016 10:18:49 -0500
' 
' 	this is a tes

outFile.Close