note
Anonymous Monk
Hey!! It's cool!!! For my system (Windows 2kp<=>Outlook 2000, perl v5.6.1.), this script is working properly <STRONG>(else to see something like this: "Win32::OLE::Variant=SCALAR(0x21d2f88)" instead of date and time)</STRONG> only with following subroutine:
<CODE>
print "$it->{ReceivedTime} $it->{Subject}\n";
</CODE>
<CODE>
#-------------------my sub-----------------------
sub time{
my $var = Variant(VT_DATE,$it->{ReceivedTime} );
my $OleObject->{value} = $var;
my $OleObject->Method($var);
}
#------------------------------------------------
</CODE>
<CODE>
my $subj = $it->{Subject};
</CODE>
Of course, together with: "use Win32::OLE::Variant;".
else, it's perfect! : ))
Stefan Marchitan
133774
133774
3