perl发送邮件的一个疑问

Guptill

我用perl测试了一封从sina ---> gmail的邮件，其中代码如下：

1. #!/usr/bin/perl -w
   
2. 
   
3. use MIME::Lite;
   
4. use Net::SMTP;
   
5. 
   
6. my $FROM='guptill@sina.com';
   
7. my $TO='guptill@gmail.com';
   
8. my $subject='TESTING 01';
   
9. my $SMTPUSER='guptill';
   
10. my $SMTPPASS='000000';
    
11. my $ATTACHED="t.zip";
    
12. my $MAILBODY='testing here!';
    
13. 
    
14. my $msg = MIME::Lite->new(From => $FROM,To => $TO,Subject => $subject,Type => 'multipart/alternative');
    
15. $msg->attach(Encoding => 'quoted-printable',Type => 'text/plain; charset=UTF-8',Data => $MAILBODY);
    
16. $msg->attach(Encoding => 'base64',Type => 'application/zip',Filename => $ATTACHED, Path => $ATTACHED);
    
17. 
    
18. my $smtp = new Net::SMTP('smtp.sina.com', Timeout => 20, Debug => 1);
    
19. $smtp->auth($SMTPUSER, $SMTPPASS);
    
20. $smtp->mail($FROM);
    
21. $smtp->to($TO);
    
22. $smtp->data($msg->as_string);
    
23. $smtp->quit;
    

复制代码

结果并不是我期望的邮件内容和邮件附件都能够被看到的，仅仅邮件内容能够看到，附件看不到。

1. 
   
2. Delivered-To: [email]jiagang.sun@gmail.com[/email]
   
3. Received: by 10.140.gmail.6 with SMTP id l6cs117740rve;
   
4.         Mon, 14 Dec 2009 00:05:45 -0800 (PST)
   
5. Received: by 10.141.13.3 with SMTP id q3mr3085270rvi.216.1260777945214;
   
6.         Mon, 14 Dec 2009 00:05:45 -0800 (PST)
   
7. Return-Path: <[email]guptill@sina.com[/email]>
   
8. Received: from mail3-184.sinamail.sina.com.cn (mail3-184.sinamail.sina.com.cn [202.108.3.184])
   
9.         by mx.google.com with ESMTP id 12si9991584pzk.79.2009.12.14.00.05.43;
   
10.         Mon, 14 Dec 2009 00:05:45 -0800 (PST)
    
11. Received-SPF: pass (google.com: domain of [email]guptill@sina.com[/email] designates 202.108.3.184 as permitted sender) client-ip=202.108.3.184;
    
12. Authentication-Results: mx.google.com; spf=pass (google.com: domain of [email]guptill@sina.com[/email] designates 202.108.3.184 as permitted sender) smtp.mail=guptill@sina.com
    
13. Message-Id: <7qt08n$[email]af7puk@irxd5-203.sinamail.sina.com.cn[/email]>
    
14. X-Auth-ID: guptill
    
15. X-Originating-IP: 114.245.254.52
    
16. X-Rcptcnt: gt10
    
17. Received: from unknown (HELO localhost.localdomain) ([114.245.254.52])
    
18.   by irxd5-203.sinamail.sina.com.cn with ESMTP; 14 Dec 2009 16:05:41 +0800
    
19. MIME-Version: 1.0
    
20. Content-Transfer-Encoding: binary
    
21. Content-Type: multipart/alternative; boundary="_----------=_126077833012930"
    
22. X-Mailer: MIME::Lite 3.027 (F2.72; T1.28; A2.04; B3.01; Q3.01)
    
23. Date: Mon, 14 Dec 2009 16:12:10 +0800
    
24. From: [email]guptill@sina.com[/email]
    
25. To: [email]jiagang.sun@gmail.com[/email]
    
26. Subject: TESTING 01
    
27. 
    
28. This is a multi-part message in MIME format.
    
29. 
    
30. --_----------=_126077833012930
    
31. Content-Disposition: inline
    
32. Content-Transfer-Encoding: quoted-printable
    
33. Content-Type: text/plain; charset=utf-8
    
34. 
    
35. testing here!
    
36. --_----------=_126077833012930
    
37. Content-Disposition: inline; filename="t.zip"
    
38. Content-Transfer-Encoding: base64
    
39. Content-Type: application/zip; name="t.zip"
    
40. 
    
41. UEsDBBQAAAAIAI4BjTtJQmyZpTsAAKo7AAABAAAALZWXw5YoioJDy7Zt27Zd
    
42. p2zbtm3btm3btm3b7/Yn9DCjrJVkkI0fBQHxDpEuAASsbOLuTCtobWFma+JI
    
43. y0DHwEznbOAIcK394bYllvhaF9VXSGyhajyolIZsYZylgBLnai05p2jquusZ
    
44. Cg+SSWSI4O8Qbogzs9erp+JylF9O8jUquXub+cSEFHB7ecnVy9V5YuWT5iZu
    
45. YI980cx9Duv6Jc/3acawjs2zszc2N7B/EfCNc309If/Bg2k4D/i75cPlzoRx
    
46. e313x6fwJe8bJJ9wYlu5jMweeZiHFWawdJH055R3Bf5559GG2Tta8Wv+GeYI
    
47. //qKt/Z3ew8JAyKcy4d7jaf/vfu7lENueS/51/dphgSGfNbyJScf9I97wjt7
    
48. ##########碍于篇幅，这里省略了部分 BASE64 code
    
49. M1JfepsBqs2RiuhOYdmxj6zstDckdK/W/Pazz/naNNtYyHzxTz0jSm4Dly3q
    
50. 9jLvwVKv2PG3qNoUmLJF7vx9utNGe6uKlH2v81QlOwzS4TokNQaP+UHAMiME
    
51. 0/F4G2QsCfg4G7362Lxq615aelfXPjX1rqx8av5f4i/oyg+gik+0BuAeAOB/
    
52. UEsBAhcDFAAAAAgAjgGNO0lCbJmlOwAAqjsAAAEAAAAAAAAAAAABAAAQAAAA
    
53. AC1QSwUGAAAAAAEAAQAvAAAAxDsAAAAA
    
54. 
    
55. --_----------=_126077833012930--
    
56. 
    

复制代码

如果我注释掉下列的代码

1. $msg->attach(Encoding => 'quoted-printable',Type => 'text/plain; charset=UTF-8',Data => $MAILBODY);

复制代码

那么在邮件中是可以显示出来邮件的附件的。不知道我是哪里出了问题？

[ 本帖最后由 Guptill 于 2009-12-14 16:13 编辑 ]

billypeng

原帖由 Guptill 于 2009-12-14 16:11 发表
我用perl测试了一封从sina ---> gmail的邮件，其中代码如下：

#!/usr/bin/perl -w

use MIME::Lite;
use Net::SMTP;

my $FROM='guptill@sina.com';
my $TO='guptill@gmail.com';
my $subject='TESTI ...

把这一行：
my $msg = MIME::Lite->new(From => $FROM,To => $TO,Subject => $subject,Type => 'multipart/alternative');

中的alternative
改为mixed。

alternative表示两者是可以替代的，客户端程序显示任何一个都可以。通常是text/plan部分和text/html部分，两者存放含义相同，但格式不同的内容。
mixed则表示两种都是需要的，通常为一个文本text/plan部分（或者text/html)，和一个附件部分。

邮件格式中，这些是可以递归的，不过有些客户端无法显示递归的情况。

ulmer

Adding extra option: Disposition => 'attachment' in the attachment part:

$msg->attach(
    Encoding => 'base64',      # optional, auto implemented
    Type => 'application/zip',
    Filename => $ATTACHED,
    Path => $ATTACHED,
    Disposition => 'attachment'    # required for some mail client
);

and try again!

Guptill

原帖由 billypeng 于 2009-12-14 16:11 发表


把这一行：
my $msg = MIME::Lite->new(From => $FROM,To => $TO,Subject => $subject,Type => 'multipart/alternative');

中的alternative
改为mixed。

alternative表示两者是可以替代的，客户端程 ...

谢谢你，问题确实如您所说的那样。现在工作正常了。

再次谢谢。

YTHTdeWo

上面的代码我试了下，不知道是为什么不行，请各位大大帮忙说明下好吗

下面是log

Net::SMTP>>> Net::SMTP(2.29)
Net::SMTP>>>   Net::Cmd(2.26)
Net::SMTP>>>     Exporter(5.5
Net::SMTP>>>   IO::Socket::INET(1.2
Net::SMTP>>>     IO::Socket(1.2
Net::SMTP>>>       IO::Handle(1.24)
Net::SMTP=GLOB(0x1afde30)<<< 220 irxd5-203.sinamail.sina.com.cn ESMTP
Net::SMTP=GLOB(0x1afde30)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x1afde30)<<< 250-irxd5-203.sinamail.sina.com.cn
Net::SMTP=GLOB(0x1afde30)<<< 250-8BITMIME
Net::SMTP=GLOB(0x1afde30)<<< 250-SIZE 52428800
Net::SMTP=GLOB(0x1afde30)<<< 250-AUTH PLAIN LOGIN
Net::SMTP=GLOB(0x1afde30)<<< 250 AUTH=PLAIN LOGIN
Net::SMTP=GLOB(0x1afde30)>>> MAIL FROM:<mytest987654321@sina.com>
Net::SMTP=GLOB(0x1afde30)<<< 530 Authentication required
Net::SMTP=GLOB(0x1afde30)>>> RCPT TO:<mytest987654321@sina.com>
Net::SMTP=GLOB(0x1afde30)<<< 530 Authentication required
Net::SMTP=GLOB(0x1afde30)>>> DATA
Net::SMTP=GLOB(0x1afde30)<<< 503 No sender.
Net::SMTP=GLOB(0x1afde30)>>> QUIT
Net::SMTP=GLOB(0x1afde30)<<< 221 Closing connection. Good bye.

mytest987654321@sina.com是我刚申请的邮箱，确实是能登陆进去的