-1
我用Net::SMTP::SSL
在Perl发送邮件时失败,并得到了“454错误:身份验证失败”454错误:身份验证使用的Net :: SMTP :: SSL发送电子邮件
这里是我的代码:
use Net::SMTP::SSL;
$smtp = Net::SMTP::SSL->new($smtp2, Port => $smtp_port2, Timeout => 10, Debug => 1);
$smtp->auth($login2, $password2);
$smtp->mail($login2);
$smtp->to($to);
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("From: Aspiring error email \n");
$smtp->datasend("Date: $today\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend($message);
$smtp->dataend();
$smtp->quit;
,我得到了这些消息:
Net::SMTP::SSL=GLOB(0xf9ab80)<<< 454 Error: authentication failed, system busy
它似乎我没有权威性,我相信用户名和PW是正确的。 非常感谢!