使用 Net::SMTP::TLS发送带附件邮件，附件不对

yuliu1212

发送的邮件附件并不是test.doc这个文件，附件内容就是我的path内容“./test.doc”，请问是怎么回事？

1. my $msg = MIME::Lite->new(
   
2.         From    => 'mail',
   
3.         To      => 'mail',        
   
4.         Subject => 'Perl Test',
   
5.           Type    =>'multipart/signed',
   
6. );
   
7.    
   
8.     $msg->attach(
   
9.        Type     => 'application/msword',
   
10.         Path     => './test.doc',
    
11.         Filename => 'test.doc',
    
12.         Disposition => 'attachment',
    
13.     );
    
14. 
    
15. my $mailer = new Net::SMTP::TLS(  
    
16.     'smtp.gmail.com',  
    
17.     Port    =>      587,  
    
18.     User    =>      'user',  
    
19.     Password=>      'password');  
    
20. $mailer->mail('mail');  
    
21. $mailer->to('mail');  
    
22. $mailer->data;  
    
23. $mailer->datasend($msg->as_string);  
    
24. $mailer->dataend;  
    
25. $mailer->quit;  
    

复制代码

yuliu1212

我之前也用其他方法发送附件也都是这个样子，把路径换成完整路径也不行

yuliu1212

求高手帮忙分析下原因

yuliu1212

C:\Users\yuchao01\Desktop\QQ截图20131108171016.png

yuliu1212

http://luckylarry.co.uk/programm ... perl-using-netsmtp/
我用这个方法也做到了，不过原来的错误还是不知道在哪

iamlimeng

1. my $smtp = Net::SMTP->new($mailhost, Hello =>'localhost', Timeout => 120, Debug => 1) or return("Cannot connect to mail server, please notify Limeng by Email, thanks!");
   
2. $smtp->auth($username,$password) or return("Authenticating error, please notify Limeng by Email, thanks!");
   
3. 
   
4. $smtp->mail($mailfrom);
   
5. $smtp->to($FORM{'mailto'});
   
6. $smtp->data();
   
7. $smtp->datasend($_) foreach (@content);
   
8. $smtp->dataend();

复制代码

我把附件用base64编码后加入@content，然后用上面的方法发送，很OK！全手工的。