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.

var
success: Boolean;
mime: HCkMime;
now: PWideChar;
head: PWideChar;

begin
success := False;

mime := CkMime_Create();
success := CkMime_SetBodyFromPlainText(mime,'Message with a Date header.');
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;

//  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 := CkMime__currentDateTime(mime);
Memo1.Lines.Add('Current date/time: ' + now);

//  It can be used to populate a Date header field.
CkMime_SetHeaderField(mime,'Date',now);

head := CkMime__getEntireHead(mime);
if (CkMime_getLastMethodSuccess(mime) = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;
Memo1.Lines.Add(head);

CkMime_Dispose(mime);