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.             eval {
  6.                     (new Mail::Sender)
  7.                     ->OpenMultipart({
  8.                             smtp => 'smtp.163.com',
  9.                             from => 's1234567@163.com',
  10.                              auth=> 'LOGIN',
  11.                           authid => 's1234567',
  12.                          authpwd => '01123',
  13.                               to => \@mailto,
  14.                          subject => 'Another Way to Embedded Image Test',
  15.                         boundary => 'boundary-test-1',
  16.                             type => 'multipart/related',
  17.              skip_bad_recipients => 'true'
  18.                     })
  19.                        ->Part({ctype => 'multipart/alternative'})
  20.                        ->Part({ ctype => 'text/plain', disposition => 'NONE',msg => <<'*END*' })
  21.    A long
  22.    mail
  23.    message.
  24. *END*
  25.                            
  26.       
  27. #*END*一定要在最左边   
  28. ->Part({ctype => 'text/html', disposition => 'NONE', msg => <<'*END*'})
  29.             <html><body><h1>A long</h1><p align=center>
  30.             mail
  31.             message.
  32.             <img src="cid:img1">
  33.             </p></body></html>
  34. *END*
  35.                           
  36.          ->EndPart("multipart/alternative")
  37.                             ->Attach({
  38.                                     description => 'ed\'s jpg',
  39.                                     ctype => 'image/jpeg',
  40.                                     encoding => 'base64',
  41.                                     disposition => "inline; filename=\"0518m_b.jpg\";\r\nContent-ID: <img1>",
  42.                                     file => 'hf.jpg'
  43.                             })
  44.                     ->Close();
  45.             } or print "Error sending mail: $Mail::Sender::Error\n";
复制代码
#还有,最后一个邮箱我故意写错了,导致所有邮件都不能发送成功,加上一句   skip_bad_recipients => 'true'就OK了。。




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