To send E-mail via the Microsoft exchange server, you need to use the MAPI interface. I have created an example below to send Email via exchange server:
use Win32::OLE;
use strict;
# Create a new MAPI session
my $session = Win32::OLE->new("MAPI.Session")
or die "Failed to create a new MAPI Session!";
# Logon to server
my $res = $session->Logon("roger", "letmepass");
die "Could not log on to exchange server!" if ($res);
# Create a new message
my $msg = $session->Outbox->Messages->Add();
# Add the recipient and resolve the address
my $recipient = $msg->Recipients->Add();
$recipient->{Name} = "someone@somewhere.com";
$recipient->Resolve();
# Add your text
$msg->{Subject} = "Email Test";
$msg->{Text} = qq/
Email test ....
will this work?
Regards
Roger
/;
# Send the email
$msg->Update();
$msg->Send(0, 0, 0);
# Log off
$session->Logoff();