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 Long
success = 0

Dim mime As New ChilkatMime
success = mime.SetBodyFromPlainText("Message with a Date header.")
If (success = 0) Then
    Debug.Print mime.LastErrorText
    Exit Sub
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
Debug.Print "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 = 0) Then
    Debug.Print mime.LastErrorText
    Exit Sub
End If

Debug.Print head