关于Mail送信的头疼问题，求大神！

Shell_HAT

回复 9# iceberg9527


找到它的pid，再杀。

iceberg9527

回复 10# winway1988


回答得太精彩了。
谢谢您！
能再问一个问题吗？现在我发邮件内容里有一句日文，客户端用OutLook接受到以后是乱码，需要手动改一下查看的编码才能够正常显示。
请问，在上面的脚本里能不能去指定编码啊？或者有什么办法让它显示起来不是乱码。
拜托了。

winway1988

回复 12# iceberg9527


    我自己也没有用shell实现过，但是据我所知，编码的话，是在邮件格式里指定的，邮件的格式叫做MIME格式，类似这个

1. Date: Mon, 5 Mar 2012 16:07:23 +0800
   
2. From: smtptestsmtp <smtptestsmtp@163.com>
   
3. To: ssmmttpp <ssmmttpp@163.com>
   
4. Reply-To: smtptestsmtp <smtptestsmtp@163.com>
   
5. Subject: subject
   
6. X-Priority: 3
   
7. X-Mailer: Foxmail 7.0.1.81[cn]
   
8. Mime-Version: 1.0
   
9. Message-ID: <201203051607239843640@163.com>
   
10. Content-Type: text/plain;
    
11.         charset="us-ascii"
    
12. Content-Transfer-Encoding: base64
    
13. 
    
14. Y29udGVudA0KDQoNCg0KDQpzbXRwdGVzdHNtdHA=

复制代码

也就是说你想发什么编码的邮件，你就需要自己构造什么样的邮件内容，这个可能对你有用http://snailwarrior.blog.51cto.com/680306/142497/。最后告诉你个我自己常用的方法，找一个mail客户端如foxmail、outlook，写好邮件，然后有个查询这封邮件mime格式的地方，你可以直接用这个当成邮件内容在shell里进行发送。如果你每次发送的都是变换的内容，那就只能自己在shell里按照mime格式够构造了。

iceberg9527

回复 13# winway1988


    真的非常感谢，看了你发的那篇文章，问题已经解决了！
    谢谢！

cduedu

似乎用perl的效果会更好些，个人意见。

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. use Net::SMTP;
   
5. 
   
6. my $mailhost = 'smtp.xx.com';
   
7. my $mailfrom = 'xxx';
   
8. my @mailto = ('xxx','xxxx');
   
9. 
   
10. my $user = '120@abc.cn';
    
11. my $passwd = '123456';
    
12. 
    
13. my $subject = 'hello';
    
14. 
    
15. #my $text
    
16. 
    
17. my $f_list = '/tmp/scp.log';
    
18. open(FILE, $f_list) or die "Can not open list file\n";
    
19. undef $/;
    
20. my $text = <FILE>;
    
21. 
    
22. 
    
23. my $smtp = Net::SMTP->new($mailhost, Timeout=>120, Debug => 1) or die "Error.\n";
    
24. $smtp->auth('LOGIN', $user, $passwd);
    
25. 
    
26. foreach my $mailto(@mailto) {
    
27. $smtp->mail($mailfrom);
    
28. $smtp->to($mailto);
    
29. $smtp->data();
    
30. $smtp->datasend("To: $mailto\n");
    
31. $smtp->datasend("Frommailfrom\n");
    
32. $smtp->datasend("Subject: $subject\n");
    
33. $smtp->datasend("\n");
    
34. $smtp->datasend("$text\n\n");
    
35. $smtp->dataend();
    
36. }
    
37. 
    
38. $smtp->quit;

复制代码