#!/usr/bin/perl -w

use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';

my $outlook = Win32::OLE->new('Outlook.Application');
my $MailItem = $outlook->CreateItem(olMailItem);
my $objOutlookRecip = $MailItem->Recipients;

$objOutlookRecip->Add("Rich");

my $recip = $objOutlookRecip->Add("Rich");

$recip->{Type} = olCC;
$objOutlookRecip->ResolveAll();

$MailItem->{Subject} = "$Info{Customer} / Part No: " . $Info{'Part Number'} . ", Rev. $Info{Rev} / Catalog Number $ENV{JOB}";
$MailItem->{Body} =
"            !!!Traveler change request!!!\n\n" .
"$Info{Customer} " . $Info{'Part Number'} . " Rev $Info{Rev} \n\n" .
"\n";

$MailItem->Display();