Select Code to Download

my $wd = Win32::OLE::Const->Load("Microsoft Outlook");
foreach my $key (keys %$wd) {
    printf "$key = %s\n", $wd->{$key};
}

use strict;
use warnings;
...
my $accessor = "SenderName";
my %mail = map { $_ => $message->$_ } qw( SenderName To Cc Bcc Subject
+ Body);
print Dumper(\%mail), "\n";