Hey!! It's cool!!! For my system (Windows 2kp<=>Outlook 2000, perl v5.6.1.), this script is working properly (else to see something like this: "Win32::OLE::Variant=SCALAR(0x21d2f88)" instead of date and time) only with following subroutine:

print "$it->{ReceivedTime} $it->{Subject}\n";
[download]

#-------------------my sub-----------------------
sub time{
my $var = Variant(VT_DATE,$it->{ReceivedTime} );
    my    $OleObject->{value} = $var;
    my    $OleObject->Method($var);
}
#------------------------------------------------
[download]

my $subj = $it->{Subject};
[download]

Of course, together with: "use Win32::OLE::Variant;". else, it's perfect! : )) Stefan Marchitan