Board logo

标题: [原创教程] Perl用Mail::Sender批量发送带附件的邮件 [打印本页]
作者: sxw    时间: 2013-5-15 21:04     标题: Perl用Mail::Sender批量发送带附件的邮件

  1. use strict;

  2. use warnings;

  3. use Mail::Sender;

  4. my @mailto=('123456@qq.com','234567@qq.com','fg789@sina.com','s123456@163.com');

  5. 

  6.             eval {

  7.                     (new Mail::Sender)

  8.                     ->OpenMultipart({

  9.                             smtp => 'smtp.163.com',

  10.                             from => 's1234567@163.com',

  11.                              auth=> 'LOGIN',

  12.                           authid => 's1234567',

  13.                          authpwd => '01123',

  14.                               to => \@mailto,

  15.                          subject => 'Another Way to Embedded Image Test',

  16.                         boundary => 'boundary-test-1',

  17.                             type => 'multipart/related',

  18.              skip_bad_recipients => 'true'

  19.                     })

  20.                        ->Part({ctype => 'multipart/alternative'})

  21.                        ->Part({ ctype => 'text/plain', disposition => 'NONE',msg => <<'*END*' })

  22.    A long

  23.    mail

  24.    message.

  25. *END*

  26.                            

  27.        

  28. #*END*一定要在最左边    

  29. ->Part({ctype => 'text/html', disposition => 'NONE', msg => <<'*END*'})

  30.             <html><body><h1>A long</h1><p align=center>

  31.             mail

  32.             message.

  33.             <img src="cid:img1">

  34.             </p></body></html>

  35. *END*

  36.                           

  37.          ->EndPart("multipart/alternative")

  38.                             ->Attach({

  39.                                     description => 'ed\'s jpg',

  40.                                     ctype => 'image/jpeg',

  41.                                     encoding => 'base64',

  42.                                     disposition => "inline; filename=\"0518m_b.jpg\";\r\nContent-ID: <img1>",

  43.                                     file => 'hf.jpg'

  44.                             })

  45.                     ->Close();

  46.             } or print "Error sending mail: $Mail::Sender::Error\n";

  47. 

  48.  
复制代码
#还有，最后一个邮箱我故意写错了，导致所有邮件都不能发送成功，加上一句   skip_bad_recipients => 'true'就OK了。。



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2