http://qs321.pair.com?node_id=208333


in reply to Extracting memos from an Outlook Inbox

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";
#-------------------my sub----------------------- sub time{ my $var = Variant(VT_DATE,$it->{ReceivedTime} ); my $OleObject->{value} = $var; my $OleObject->Method($var); } #------------------------------------------------
my $subj = $it->{Subject};
Of course, together with: "use Win32::OLE::Variant;". else, it's perfect! : )) Stefan Marchitan