perl模块之MIME::Lite发送有附件的邮件
前些日子做了一个自动发邮件的perl脚本,因为考虑到要使用附件所以使用了MIME::Lite 模块,用它来创建并发送带MIME 指定类型附件的邮件。MIME 是在邮件中附带各种文件文档的标准方式。
在perl中使用 MIME::Lite来发送有附件的邮件。
首先,创建包含邮件各种头信息的 MIME::Lite 对象:
1 2 3 4 5 6 7 8 |
use MIME::Lite; $msg = MIME::Lite->new( From => 'sender@example.com', To => 'recipient@example.com', Subject => 'You want awstats ?', Type => 'multipart/mixed' ); |
然后用 attach 方法添加附件内容:
1 2 3 4 |
$msg->attach( Type => 'auto', Path => '/root/awstats.gz', ); |
MIME::Lite 模块的参数类型决定附件的类型和附件的添加方法:
Path 指定作为附件的文件的路径
Filename 指定接受方保存附件时,附件的默认文件名。如果指定了 Path 参数,那么默认的文件名就是路径中的名字
Data 指定附件添加的日期
Type 指定待添加附件的文件编码类型
Disposition 它的值只能是 inline 和 attachment。前者指定接受方打开邮件的时候附件内容会跟在邮件正文后显示,而不单独作为一个附加物。后者指定接受方应该指定一个附件的解码方法,并且保存附件,此时会有提示
1 2 |
$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.
Perl mailSend 下载
使用方法
1 |
echo 'aaaaaaaa' |perl mailSend.pl --to kai.fu --subject 'you subject' --attach awstats.gz --attach test.pl |
MIME::Lite 附录:
MIME::Lite 参数采用“参数名=>值”对形式。
MIME::Lite 头
Approved Encrypted Received Sender
Bcc From References Subject
Cc Keywords Reply-To To
Comments Message-ID Resent- X-
Content-* MIME-Version Return-Path
Date Organization
MIME::Lite 参数类型
Data FH ReadNow
Datestamp Filename Top
Disposition Id Type
Encoding Length
Filename Path
这儿有几个有用的附件编码类型:
TEXT 代表 text/plain,为 Type 的默认值;
BINARY 是 application/octet-stream 的缩写;
multipart/mixed 表明邮件有附件;
application/msword 表明附件为微软的 Word 文档;
application/vnd.ms-excel 表明附件为微软的 Excel 文档;
application/pdf 表明附件为 PDF 文档;
image/gif,image/jpeg,image/png 分别指定 GIF,JPEG,PNG 文件;
audio/mpeg 指定 MP3 格式文件;video/mpeg 指定 MPEG 格式影片;
video/quicktime 指定Quicktime 格式文件。
建议继续学习:
- 如何写好一封邮件 (阅读:18042)
- perl更新/修改/删除文本文件内容 (阅读:9424)
- perl大牛flw传说 (阅读:6506)
- perl模块Getopt::Std用法及实例-从命令行读取参数模块 (阅读:5867)
- [Perl] Template::Toolkit 模板技术. (阅读:5361)
- 在perl中连接和使用sqlite做数据存储 (阅读:5040)
- Perl命令行常见用法及技巧 (阅读:4792)
- 如何建立一套邮件发送系统 (阅读:4653)
- 让邮件飞一会儿 (阅读:4655)
- perl的expect使用方法,实现非交互式登录。 (阅读:4479)
扫一扫订阅我的微信号:IT技术博客大学习
- 作者:扶凯 来源: 扶凯
- 标签: Lite perl 邮件 附件
- 发布时间:2009-12-25 00:00:50
- [68] Go Reflect 性能
- [68] 如何拿下简短的域名
- [67] Oracle MTS模式下 进程地址与会话信
- [62] IOS安全–浅谈关于IOS加固的几种方法
- [61] 图书馆的世界纪录
- [60] 【社会化设计】自我(self)部分――欢迎区
- [58] android 开发入门
- [56] 视觉调整-设计师 vs. 逻辑
- [49] 给自己的字体课(一)——英文字体基础
- [48] 读书笔记-壹百度:百度十年千倍的29条法则