在perl中使用 MIME::Lite来发送有附件的邮件

linghaiyan

　　前些日子做了一个自动发邮件的perl脚本,因为考虑到要使用附件所以使用了MIME::Lite 模块,用它来创建并发送带MIME 指定类型附件的邮件.MIME 是在邮件中附带各种文件文档的标准方式.

在perl中使用 MIME::Lite来发送有附件的邮件
　　
　　首先,创建包含邮件各种头信息的 MIME::Lite 对象：

use MIME::Lite;
$msg = MIME::Lite->new(
From  => 'sender@example.com',
To   => 'recipient@example.com',
Subject => 'You want awstats ?',
Type  => 'multipart/mixed'
);


　　然后用 attach 方法添加附件内容：

$msg->attach(
Type    => 'auto',
Path    => '/root/awstats.gz',
);


　　MIME::Lite     模块的参数类型决定附件的类型和附件的添加方法：
Path     指定作为附件的文件的路径
Filename     指定接受方保存附件时,附件的默认文件名.如果指定了 Path 参数,那么默认的文件名就是路径中的名字
Data     指定附件添加的日期
Type     指定待添加附件的文件编码类型
Disposition    它的值只能是 inline 和 attachment.前者指定接受方打开邮件的时候附件内容会跟在邮件正文后显示,而不单独作为一个附加物.后者指定接受方应该指定一个附件的解码方 法,并且保存附件,此时会有提示

$msg->send( );      # 默认的方法是用sendmail规则发送
$msg->send('smtp', 'mailserver.example.com', Timeout => 30,Debug = 1);# 指定其它的方法


　　使用MIME::Lite来发送邮件有二种方法 sendmail 和 Net::SMTP.
调用 send 方法时,若第一个参数为“smtp”,则用 Net::SMTP 发送邮件.send的其它参数都传给 Net::SMTP.不加任何的话就是系统的sendmail.
使用方法
　　echo 'aaaaaaaa' |perl mailSend.pl --to kai.fu --subject 'you subject' --attach awstats.gz --attach test