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.

use strict;
use warnings;
use Chilkat2;

my $mime = Chilkat2::Mime->new;
my $success = $mime->SetBodyFromPlainText('Message with a Date header.');
if (!$success) {
    print $mime->LastErrorText, "\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
my $now = $mime->CurrentDateTime;
print 'Current date/time: ', $now, "\n";

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

my $head = $mime->GetEntireHead();
if (!$mime->LastMethodSuccess) {
    print $mime->LastErrorText, "\n";
    exit;
}

print $head, "\n";