调用perl,Mail::Sender模块发送邮件
发布时间:2020-12-15 21:11:09 所属栏目:大数据 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 #!/usr/bin/perluse Mail::Sender;#new一个sender,定义编码格式防止乱码 my $sender = new Mail::Sender{ ctype = 'text/plain; charset=utf-8',encod
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 #!/usr/bin/perl use Mail::Sender; #new一个sender,定义编码格式防止乱码 my $sender = new Mail::Sender{ ctype => 'text/plain; charset=utf-8',encoding => 'utf-8',}; #die "Error in mailing : $Mail::Sender::Errorn" unless ref $sender; if ($sender->MailFile({ smtp => '127.0.0.1',#hostname or ip from => '[email?protected]',to =>'[email?protected]',subject => 'this is a test',msg => "Hi all.nHow are you? 这是测试信息! skip it! ",auth => 'LOGIN',#验证方式 authid => 'user',authpwd => 'pwd',file=>'perl_mail.pl',#添加附件 # charset=>'gb2312' }) < 0) { die "$Mail::Sender::Errorn"; } $sender->Close(); print "Mail sent OK."; 以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |