This works:
use strict;
use warnings;
use Net::SMTP;
my $mailhost = "jim.bob.com";
my $mailobj = "";
if($mailobj = Net::SMTP->new($mailhost, Timeout=>10, Debug=>1)){
print("Connected to $mailhost\n");
} else {
print("Could not connect to $mailhost\n");
die;
}
my $username = "[EMAIL PROTECTED]";
my $password = "abcd123";
$mailobj->auth($username,$password);
my $Rx1 = "[EMAIL PROTECTED]@jim.com";
my $Rx2 = "[EMAIL PROTECTED]";
my $from = "[EMAIL PROTECTED]";
print("The recipients are $Rx1 and $Rx2\n");
$mailobj->mail($from);
$mailobj->recipient($Rx1, $Rx2,{SkipBad=>1});
if($mailobj->data()){
$mailobj->datasend("To:$Rx1\r\n");
$mailobj->datasend("cc:$Rx2\r\n");
$mailobj->datasend("Subject: Email from Perl script using
bob.com with authentication\r\n");
$mailobj->datasend("This is a test message...from Perl using
bob.com!\n :)\nJim\n");
print("Data sent successfully \n");
} else {
print("Send failed\n");
}
$mailobj->quit;
#This worked, with subject, to and cc fields.
#make sure the Auth::SASL module in installed.
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of David Ressler
> Sent: Monday, June 27, 2005 10:47 PM
> To: Perl List
> Subject: Using Net::SMTP with Authen:SASL
>
>
> I've been advised by my web host that I should use
> authenticated SMTP instead of sendmail; that is, Net::SMTP
> using Authen::SASL. I'm getting no further guidance, so I've
> tried variations on the following with no success:
>
> use lib $SCRIPTS_DIR.'Authen'; #Contains Authen::SASL (not
> loaded by host) use Net::SMTP; $smtp =
> Net::SMTP->new('mymailserver.com',Debug=>1);
> $smtp->auth('myaccount','mypassword');
> $smtp->mail('[EMAIL PROTECTED]');
> $smtp->to('[EMAIL PROTECTED]');
> $smtp->data();
> $smtp->datasend("To: [EMAIL PROTECTED]");
> $smtp->datasend("From: [EMAIL PROTECTED]");
> $smtp->datasend("Subject: Authenticated test message\n");
> $smtp->datasend("\n"); $smtp->datasend("A simple test
> message\n"); $smtp->dataend(); $smtp->quit; print "<br>Done"; exit;
>
> Is this a reasonable approach, with perhaps some crucial
> detail overlooked? Or does using Authen::SASL with Net::SMTP
> require a different approach?
>
>
> _______________________________________________
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
