#start Outlook and make it visible
 my $Outlook = Win32::OLE->GetActiveObject
                           ('Outlook.Application') ||
               Win32::OLE->new('Outlook.Application');
 $Outlook->{'Visible'} = 1;
 my $message = $Outlook->CreateItem(olMailItem);
 $message->{BodyFormat} = 'olFormatHTML'; #needed for rich format
 
 #use a hash to populate address and subject fields
 $message->{HTMLBody} = $emailBody;

 my $clip = Win32::Clipboard($message->{HTMLBody});