[求助]发送邮件时出现乱码

chenxiam

用net::smtp编写的邮件发送
发送中文时出现一堆乱码,如"脰脨鹿煤脡煤脦茂脗脹脤鲁"
用gkb,gb2312,uft8都解决不了,要用base64来解决吗,怎么解决?
谢谢

haishen

把代码放上来

chenxiam

1. 
   
2. use Net::SMTP;
   
3. use Authen::SASL;
   
4. use Encode qw/from_to encode decode/;
   
5. my $mailhost = 'localhost';
   
6. my $mailfrom = 'XXXXXXXX';
   
7. my $subject = "这里是中文出现的地方";
   
8. my $text = <<EOF;
   
9. 这里也是中文出现的地方
   
10. EOF
    
11. 
    
12. #from_to($subject,"gbk","utf8");
    
13. #from_to($text,"gbk","utf8");
    
14. 
    
15. my $smtp = Net::SMTP->new($mailhost, Timeout => 60, Debug => 1, Hello => 'XXXXX',);
    
16. $sasl =Authen::SASL->new(mechanism => 'LOGIN', callback=>{user => "XXXXX", pass => "XXXXXXX"} );
    
17. $smtp->auth($sasl);
    
18. my $mailto = 'XXXXXXXX';
    
19. $smtp->mail($mailfrom);
    
20. $smtp->to($mailto);
    
21. $smtp->data();
    
22. $smtp->datasend("Content-Type: text/plain; charset=gb2312 \n");
    
23. $smtp->datasend("Content-Transfer-Encoding: 8bit\n");
    
24. $smtp->datasend("To: $mailto \n");
    
25. $smtp->datasend("From: $mailfrom \n");
    
26. $smtp->datasend("Subject: $subject \n");
    
27. $smtp->datasend("Text: $text \n\n");
    
28. $smtp->datasend("\n");
    
29. $smtp->quit;
    

复制代码

[ 本帖最后由 chenxiam 于 2007-11-10 01:42 编辑 ]

chenxiam

顶上去

gangjh

datasend的內容需要用
MIME::Entity ;之類的模組編碼一下.