求助mail sender發(fā)郵件

609854

code如下，運(yùn)行后沒(méi)有任何反應(yīng)，郵件沒(méi)有發(fā)送，在公司內(nèi)網(wǎng)環(huán)境下，牛頭們幫忙診斷下啊 ，看了半天了。

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();

復(fù)制代碼

ttcn_cu

system "cat 包含你要發(fā)的正文的文本文件 | sendmail '你要發(fā)的地址'"；

kggg

用debug參數(shù)看看錯(cuò)誤在哪.