求助mail sender发邮件

609854

code如下，运行后没有任何反应，邮件没有发送，在公司内网环境下，牛头们帮忙诊断下啊 ，看了半天了。

1. #!/usr/bin/perl
   
2. use Mail::Sender;
   
3. 
   
4. my $sender = new Mail::Sender {
   
5.         smtp => 'smtp.163.com',
   
6.      from => 'f666@163.com',
   
7.      auth => 'LOGIN',
   
8.      authid => 'f666@163.com',
   
9.      authpwd => '!qaz2wsx',
   
10.      on_errors => undef,
    
11. } or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";
    
12. $sender->MailFile({to =>'f666@163.com',
    
13.        subject => 'Here is the file',
    
14.        msg => "I'm sending you the list you wanted.",
    
15.        file => './or.pl'}) or print $Mail::Sender::Error;
    
16. $sender ->Close();

复制代码

ttcn_cu

system "cat 包含你要发的正文的文本文件 | sendmail '你要发的地址'"；

kggg

用debug参数看看错误在哪.