Hello:
I'm trying to get the following (blissfully short) script to work. As you
can see, it's supposed to send mail. And when I run it, it returns without
an error. But no mail is ever sent.
Note that I do have Net::SMTP installed, and I am able to send mail directly
using Net::SMTP.
Any thoughts? Thanks.
- geoff
(And yes, the "xxxx" in $server is for list-posting purposes only.)
(Running OS X 10.1.4, if it matters.)
==================
#!/usr/bin/perl -w
use strict;
use Mail::Mailer;
my $server = "xxxxxxxxx";
my %headers = (
From => '[EMAIL PROTECTED]>',
To => '[EMAIL PROTECTED]',
Subject => 'Does Mail::Mailer work?'
);
my $body = "We'll see";
my $mailer = new Mail::Mailer ("smtp", Server => $server);
$mailer->open(\%headers);
print $mailer $body;
$mailer->close;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
