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 success As Boolean
success = False

Dim mime As New Chilkat.Mime
success = mime.SetBodyFromPlainText("Message with a Date header.")
If (success = False) Then
    System.DebugLog(mime.LastErrorText)
    Return
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
Dim now As String
now = mime.CurrentDateTime
System.DebugLog("Current date/time: " + now)

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

Dim head As String
head = mime.GetEntireHead()
If (mime.LastMethodSuccess = False) Then
    System.DebugLog(mime.LastErrorText)
    Return
End If

System.DebugLog(head)