Mail::Mailer发不出邮件

lovebbs

在命令行直接用 mail -s "hello" xxx@company.com < data 就能发出邮件。但是用Mail::Mailer写个小程序就发不出去。。。

麻烦看看这么写哪里错了？邮件就是发不出去。

1. #!/usr/bin/perl
   
2. 
   
3. use Mail::Mailer;
   
4. 
   
5. my $to = "xxx@company.com";
   
6. my $subject = "perl send";
   
7. my $message = "perl send mail from server";
   
8. 
   
9. my %headers = (
   
10. 'To' => $to,
    
11. 'From' => 'a server',
    
12. 'Subject' => $subject
    
13. );
    
14. 
    
15. my $mail = Mail::Mailer->new('sendmail');
    
16. 
    
17. $mail->open(\%headers);
    
18. print $mail $message;
    
19. $mail->close;

复制代码

yaoliwei

多了一行exit代码 第10行。

lovebbs

多了一行exit代码 第10行。
yaoliwei 发表于 2010-04-12 15:45

笔误。
把exit去掉了，

lovebbs

仙子MM在吗？

兰花仙子

仙子MM在吗？
lovebbs 发表于 2010-04-12 18:39

    见这个回复：
http://bbs3.chinaunix.net/thread-1689682-1-1.html

lovebbs

回复 5# 兰花仙子
其实用别的包可以实现邮件发送，这个明白，但是Mail::Mailer是我们一高层指定要用的，只能找出怎么解决不能自己改用别的。