请教关于使用NET::SMTP发送邮件的问题

aboy11

发送邮件代码如下:

1. use Net::SMTP;
   
2. 
   
3. my $mailhost = "smtp.126.com";
   
4. my $mailfrom = 'xyz@126.com';
   
5. my @mailto = ('xyz@126.com');
   
6. my $subject = "测试邮件";
   
7. my $text =<<ENDMODE;
   
8. 
   
9.         各位好:
   
10.                         下面是今天的日志检验结果,请查看!
    
11. 
    
12. ENDMODE
    
13. 
    
14.    $smtp = Net::SMTP->new($mailhost, Hello => 'localhost', Timeout => 120, Debug => 1);
    
15.          $smtp->auth('xzy','12345678');
    
16. foreach my $mailto (@mailto) {
    
17.         $smtp->mail($mailfrom);
    
18.         $smtp->to($mailto);
    
19.         $smtp->data();
    
20.         $smtp->datasend("To: $mailto\n");
    
21.         $smtp->datasend("From: $mailfrom\n");
    
22.         $smtp->datasend("Subject: $subject\n");
    
23.         $smtp->datasend("\n");
    
24.         $smtp->datasend("$text\n\n");
    
25.         $smtp->dataend();
    
26. }
    
27. $smtp->quit;

复制代码

这段代码使用我们公司的邮件服务器是可以发送的,但也只能往公司其他人的邮箱里发邮件,不能给其他邮件服务器发..
当我使用126的邮件服务器时候,报错
Net::SMTP=GLOB(0x1a3d56c)<<< 553 authentication is required,smtp4,jdKowLCrKAS0eMxJqaAoIw--.50262S2 1238137012

请教大虾们帮我想想解决办法..谢谢

flw

你会查单词吗？

hfahe

my $mailhost = "smtp.126.com";
时用户名密码对吗

sosogh

你的mail from 为'xyz@126.com'

所以126的服务器要求你提供这个账户的密码

小公猫

照着sample写就不会错！