Sample code for 30+ languages & platforms
Perl

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.

Background. Internet message dates follow the RFC 5322 format, for example Fri, 21 Nov 1997 09:55:06 -0600. CurrentDateTime produces a value in that form for use in message headers.

Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

$mime = chilkat::CkMime->new();
$success = $mime->SetBodyFromPlainText("Message with a Date header.");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

#  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();
print "Current date/time: " . $now . "\r\n";

#  It can be used to populate a Date header field.
$mime->SetHeaderField("Date",$now);

$head = $mime->getEntireHead();
if ($mime->get_LastMethodSuccess() == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

print $head . "\r\n";