use strict;
use Win32::OLE;
use Win32::OLE::Const;

my $text = "Test message text";

my $m_ses = Win32::OLE->new('MSMAPI.MAPISession');
my $m_msgs = Win32::OLE->new('MSMAPI.MAPIMessages');

$m_ses->SignOn;
$m_msgs->{SessionID} = $m_ses->{SessionID};
$m_msgs->Compose;
$m_msgs->{MsgSubject} = "blargh";
$m_msgs->{MsgNoteText} = $text;
$m_msgs->{AttachmentName} = 'bolbus flowerius';
$m_msgs->{AttachmentPathName} = 'C:\boot.ini';
$m_msgs->Send(1);
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

The author also suggests the Win32::MAPI module to make things easier, if you can't use Win32::OLE.

If I were in your situation, I'd try PSA example code first. It doesn't look too tough.

Thank you for your wisdom. I found a VB script and translated it. Here it is, without any error checking:

use Win32::OLE;

$mail = new Win32::OLE('Outlook.Application');
$mail->{'Visible'} = 1;
$item = $mail->CreateItem(0);
$item->{'Subject'} = "This is a test";
$item->{'To'} = "mccoyga\@1fssg.usmc.mil";
$item->{'Body'} = "Here is the meat of the message";
$item->Send();
$mail->Quit();
[download]

Can someone lend me some advice on how to get the meat from an array into the Body ? $item->{'Body'} = "Here is the meat of the message"; I can't seem to get the syntax to work on : $item->('Body') = @BODY; or $item->('Body') = print @BODY; Thanks!