- or download this
print "$it->{ReceivedTime} $it->{Subject}\n";
- or download this
#-------------------my sub-----------------------
sub time{
...
my $OleObject->Method($var);
}
#------------------------------------------------
- or download this
my $subj = $it->{Subject};