Select Code to Download

use Win32::OLE;
use Win32::OLE::Variant;
...
    my $msg = $Folder->Items($i);
    my $to = $msg->{'To'};
}