用Net::SMTP_auth遇到中文乱码!!

zhenggb

#!/usr/bin/perl -w
use Net::SMTP_auth;
$smtp = Net::SMTP_auth->new('smtp.126.com', Debug => 1);
$smtp->auth('LOGIN','user','passwd');

$smtp->mail('user@126.com');
$smtp->to('user1@126.com');
$smtp->data();

$smtp->datasend("Content-Type:text/plain;charset=GB2312\n");

$smtp->datasend("Content-Transfer-Encoding:8bit\n");
$smtp->datasend("Subject:你好吗\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message has been sent !嘿，你好!\n");
$smtp->dataend();
$smtp->quit;

邮件发送是成功了，但中文是乱码!!!我是新手，分给的不多，请大家帮帮忙^_^

撒哈拉里的鱼

我曾经遇到了同样的问题，然后查看foxmail发送邮件的数据包，并查看邮件的原始信息，解决了，你看看我的代码。

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use warnings;
   
5. use strict;
   
6. use MIME::Base64;
   
7. use Net::SMTP::SSL;
   
8. 
   
9. my $smtp_server = 'smtp.test.com';
   
10. my $smtp_port = '465';
    
11. my $username = 'user';
    
12. my $password = 'passwd';
    
13. my $from_mail = 'yunshu@test.com';
    
14. my @to_mails = ( 'icy@test.com' );
    
15. my $subject = encode_base64( '(测试邮件)请您修改域密码', ' ' );
    
16. 
    
17. open(FH, "mail.txt") or die "$!";
    
18. local($/) = undef;
    
19. my $mail_body = <FH>;
    
20. close( FH );
    
21. $/ = "\n";
    
22. 
    
23. $mail_body = encode_base64( $mail_body, ' ' );
    
24. 
    
25. my $smtp = Net::SMTP::SSL -> new( Host => $smtp_server,
    
26.                                                                         Port => $smtp_port,
    
27.                                                                         Hello => $smtp_server,
    
28.                                                                         Debug   => 1 ) || die "Can't connect $smtp_server:$smtp_port: $!\n";
    
29. 
    
30. $smtp -> auth( $username, $password ) || die "Can't authenticate: $!\n";
    
31. 
    
32. foreach my $to_mail( @to_mails )
    
33. {
    
34.         $smtp -> mail( $from_mail );
    
35.         $smtp -> to( $to_mail );
    
36.         $smtp -> data( );
    
37.        
    
38.         # send mail head
    
39.         $smtp -> datasend( "Content-Type: text/plain; charset=gb2312 \n" );
    
40.         $smtp -> datasend( "Content-Transfer-Encoding: base64\n" );
    
41.         $smtp -> datasend( "From: $from_mail\n" );
    
42.         $smtp -> datasend( "To: $to_mail\n" );
    
43.         $smtp -> datasend( "Subject: =?gb2312?B?$subject?=\n\n");
    
44.        
    
45.         # send mail body
    
46.         $smtp -> datasend( $mail_body );
    
47.         $smtp -> dataend();
    
48. }
    
49. 
    
50. $smtp -> quit();
    

复制代码

flw

既然是新手，那就用 Mail::Sender 吧。

smonkey0

邮件中文乱码都是编码问题...你把 charset=GB2312  改成charset=UTF-8,  或者  charset=GBK 试试.

gangjh

Email發送的Data數據都需要使用MIME::Entity 之類的MIME工具編碼才可以的.
建議使用Mail::Sender 或 MIME::Lite .

flw

楼上的做法是对的。
但是如果用 Mail::Sender 的话，就会更简单些。
另外，邮件相关的协议很多很杂，因此如果直接 Net::SMTP 那简直是恶梦。
无论对新手老手来说，我都不建议使用 Net::SMTP，除非有特殊需要。

撒哈拉里的鱼

恩，下次如果要写脚本可以试试你说的这个。
我主要是要ssl支持，就直接用了Net::SMTP模块。

btw: 最重要的是掌握解决问题的思路，可能做技术不太久的人遇到问题会慌张，慢慢就好了。
今天闲得没事，来帮flw看版块算了，呵呵。

andy20008

回复 1# zhenggb


我也在用这个Net::SMTP模块来发送邮件，我的需求是这样的，
利用文件句柄打开一个文本文件，如dd.txt，里面是中文的。然后根据楼主给的方法来发。


文本文件中的中文只显示了第一行，后面的要么不显示，要么乱码，这是怎么回事啊？

andy20008

还有就是如果有发送英文的语句就不行了。