MIME::Lite发邮件附件-阿里云开发者社区

开发者社区> 科技探索者> 正文

MIME::Lite发邮件附件

简介:
+关注继续查看

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


# cpan MIME::Lite

# cpan Net::SMTP::TLS


To多人格式:

$email{'To'}='<zhi.yang@ming.com>,<ming.yang@ming.com>';



方式一:


注:

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'}='zhi.yang@ming.com';

$email{'Cc'}='zhi.yang@ming.com';    

$email{'From'}= 'zhi.yang@ming.com';

$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',

);

$msg->attach(

Type     => 'TEXT',

                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个



# vi mail.pl


#!/usr/bin/perl -w

use MIME::Lite;

use Net::SMTP::TLS;


my %email;


$email{'To'}='zhi.yang@ming.com';

$email{'Cc'}='zhi.yang@ming.com';    

$email{'From'}= 'zhi.yang@ming.com';

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

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

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

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

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



&mailWithAttachment_send(%email);


sub mailWithAttachment_send(){


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

                    From=> $email{'From'},

                    To=> $email{'To'},

                    Cc=>$email{'Cc'},

                    Subject=>$email{'Subject'},

                    Type => 'multipart/mixed'

                   );


$msg->attach(

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><br></dd>

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

        <dd><br></dd>

        <dd>Thanks!</dd>

</dl>

},

Disposition => 'inline'   (inline表示显示在邮件正文中,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

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

yangzhimingg

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
阿里云服务器怎么设置密码?怎么停机?怎么重启服务器?
如果在创建实例时没有设置密码,或者密码丢失,您可以在控制台上重新设置实例的登录密码。本文仅描述如何在 ECS 管理控制台上修改实例登录密码。
10095 0
Python 发送带 附件 邮件 脚本
[oracle@rac1 ~]$ cat sendAttEmail.py  #!/usr/bin/python #coding=gbk #created by tianlesoftware ...
703 0
阿里云服务器端口号设置
阿里云服务器初级使用者可能面临的问题之一. 使用tomcat或者其他服务器软件设置端口号后,比如 一些不是默认的, mysql的 3306, mssql的1433,有时候打不开网页, 原因是没有在ecs安全组去设置这个端口号. 解决: 点击ecs下网络和安全下的安全组 在弹出的安全组中,如果没有就新建安全组,然后点击配置规则 最后如上图点击添加...或快速创建.   have fun!  将编程看作是一门艺术,而不单单是个技术。
10886 0
Python 技术篇-用smtplib和email库实现邮件发送各种类型的附件实例演示
Python 技术篇-用smtplib和email库实现邮件发送各种类型的附件实例演示
5 0
阿里云服务器如何登录?阿里云服务器的三种登录方法
购买阿里云ECS云服务器后如何登录?场景不同,阿里云优惠总结大概有三种登录方式: 登录到ECS云服务器控制台 在ECS云服务器控制台用户可以更改密码、更换系.
13893 0
阿里云ECS云服务器初始化设置教程方法
阿里云ECS云服务器初始化是指将云服务器系统恢复到最初状态的过程,阿里云的服务器初始化是通过更换系统盘来实现的,是免费的,阿里云百科网分享服务器初始化教程: 服务器初始化教程方法 本文的服务器初始化是指将ECS云服务器系统恢复到最初状态,服务器中的数据也会被清空,所以初始化之前一定要先备份好。
11893 0
LumiSoft收取邮件(含邮件附件)
在.NET当中利用C#发送电子邮件很简单,微软也提供了默认的实现,但是收取电子邮件的操作却并没有提供解决方案。
834 0
5489
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
《2021云上架构与运维峰会演讲合集》
立即下载
《零基础CSS入门教程》
立即下载
《零基础HTML入门教程》
立即下载