my $Outlook = Win32::OLE->GetActiveObject( $Class );
if ( ! $Outlook )
{
    printf "Please open Outlook and try again!\n";
    exit(0);
}

my $email = $Outlook->CreateItem(0);

my $rcpt = $email->Recipients->Add($ARGV[0]);
$rcpt->Resolve();
my $testname = $rcpt->Name();
print "$testname\n";