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: Integer;
mime: TChilkatMime;
now: WideString;
head: WideString;

begin
success := 0;

mime := TChilkatMime.Create(Self);
success := mime.SetBodyFromPlainText('Message with a Date header.');
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    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 := mime.CurrentDateTime;
Memo1.Lines.Add('Current date/time: ' + now);

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

head := mime.GetEntireHead();
if (mime.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add(head);