发送email的错误，新手求指导，喜欢perl

zmart_g

新手一个，求指导，喜欢perl的系统管理，自己动手写了一个发送邮件的脚本，但是总是报错
use Net::SMTP;

my $server        = 'smtp.yeah.net';
my $from                = '******@yeah.net';
my $passwd        = '******';
my $to                        = '******@yahoo.cn';
my $subject = 'Hello!';
my $message = 'Hello!';

my $smtp                = Net::SMTP->new($server) or die "Cannot connect to server\n";

$smtp->auth($from, $passwd) or print "Auth error!\n";
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("Subject: $subject");
$smtp->datasend($message);
$smtp->dataend();

$smtp->quit();
windows下运行会输出Auth error!，但是我确定我的用户名和密码都能登录上邮箱，不知道为什么用户错误了，求指导，不胜感激

perlnewbie

要装上Authen::SASL才行

wsxedcer

回复 1# zmart_g


    使用 Net::SMTP_auth 这模块用着舒服

兰花仙子

zmart_g 发表于 2012-11-18 14:28
新手一个，求指导，喜欢perl的系统管理，自己动手写了一个发送邮件的脚本，但是总是报错
use Net::SMTP;
...

用网易的服务器？try this:
http://search.cpan.org/~yhpeng/E ... ail/Send/Netease.pm

zmart_g

回复 2# perlnewbie


    嗯，谢谢，我试试

zmart_g

回复 3# wsxedcer


     好的，谢谢，我试试看看，perl库就是齐全啊