Re: sending email

[Carl-Joseph]

If you have Microsoft Outlook installed, you can use it to send mail from Perl.

#
# Uses COM Automation to send mail from Perl.
#

#
# Use the OLE module provided with the 
# ActiveState Perl distribution.
#
use OLE;
use Win32::OLE::Const ( 'Microsoft Outlook' );

#
# Create the application object. This starts Outlook, if 
# it isn't already running.
#
$application = CreateObject OLE 'Outlook.Application' || die $!;

#
# Create a new item to send.
#
$myitem = $application->CreateItem( olMailItem );

#
# Add recipients using the Recipients->Add method
#
$myitem->Recipients->Add( "CzJz\@Hotmail.com" );

#
# Set the values for the Subject and Body properties
#
$myitem->{ 'Subject' } = "Message from Perl" ;
$myitem->{ 'Body' } = "This message was sent from Perl.\n-- Carl-Josep
+h" ;

#
# Send it using the Send method.
#
$myitem->Send;

Carl-Joseph