How do I send E-mail via the Microsoft exchange server?

[Roger]

How do I send E-mail via the Microsoft exchange server?

Originally posted as a Categorized Question.

[Roger]

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} = "[e-mail]";
$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();

[lnl]