MIME::Lite发邮件附件

MIME::Lite发邮件附件（并有结合Net::SMTP::TLS进行账号认证）:

# cpan MIME::Lite

# cpan Net::SMTP::TLS

To多人格式：

$email{'To'}='<[email protected]>,<[email protected]>';

方式一：

注：

1、该方式是将指定路径文件以附件形式发送

2、Data处必须有，内容可自己调整

3、$msg->attach需写两处，也可再写$msg->attach添加多个附件（后面的第1部分就不用重复写了）

# vi mail.pl

#!/usr/bin/perl -w

use MIME::Lite;

use Net::SMTP::TLS;

my %email;

$email{'To'}='[email protected]';

$email{'Cc'}='[email protected]';    

$email{'From'}= '[email protected]';

$email{'SmtpHost'}= 'SMTP.ming.com';

$email{'SmtpPort'}= '587';

$email{'Hello'}= 'ming.com';

$email{'User'}= 'zhi.yang';

$email{'Password'}= 'xxxx';

    my $msg=MIME::Lite->new(

                    From=> $email{'From'},

                    To=> $email{'To'},

                    Cc=>$email{'Cc'},

                    Subject=>$email{'Subject'},

                    Type => 'multipart/mixed'

                   );

$msg->attach(

Type     => 'TEXT',

                Data     => 'aa',

);

                Path     => '/root/aa.log',

Disposition => 'attachment'

my $smtp = Net::SMTP::TLS->new(

"$email{'SmtpHost'}:$email{'SmtpPort'}", 

User =>  $email{'User'}, 

Password => $email{'Password'} ,

Hello =>  $email{'Hello'},

Timeout  => 30 

) or die("Failure to connect mail host!\n");

my $contentString = $msg->as_string() or die "$!";

    $smtp->mail($email{'From'});

    $smtp->to($email{'To'});

    $smtp->data();

    $smtp->datasend($contentString);

    $smtp->dataend();

    $smtp->quit();

:wq

方式二：

1、Disposition => 'attachment' 表示以附件显示，inline表示在邮件正文中显示

2、邮件内容采用的HTML格式，<dt>表示坐端开头写，<dd>表示左端空2个字符写，<br>表空一行

3、cc处可写多个人，中间用","隔开，To处貌似只能写1个

$email{'Password'}= 'xxxxx';

&mailWithAttachment_send(%email);

sub mailWithAttachment_send(){

Type     => 'TEXT/HTML',

Encoding => 'quoted-printable',

Data     => qq{

 <dl>

        <dt>Dear all：</dt>

<dd>CTS测试报告已出，</dd> 

<dd>详见数据平台：</dd>

<dd><a class="text-justify" href="http://aa.ming.com/bb.html">http://aa.ming.com/bb.html</a></dd>

        <dd><br></dd>

        <dt>Dear</dt>

        <dd>请关注测试结果并将差异/修改引入问题提交CR，多谢～～～</dd>

        <dd>其中数据平台Log</dd>

        <dd>Thanks!</dd>

</dl>

},

Disposition => 'inline'   （inline表示显示在邮件正文中，attachment表示以附件显示）

}

本文转自linux博客51CTO博客，原文链接http://blog.51cto.com/yangzhiming/1936545如需转载请自行联系原作者

yangzhimingg