网站首页
网站导航
Ctrl+D收藏
首 页
代码段
源码包
文档库
工具箱
代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Perl
】
调用perl,Mail::Sender模块发送邮件
作者:
Suzm
/ 发布于
2014-11-7
/
388
#!/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::Error\n" unless ref $sender; if ($sender->MailFile({ smtp => '127.0.0.1',#hostname or ip from => 'yourmail@qq.com', to =>'someonemail@qq.com', 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::Error\n"; } $sender->Close(); print "Mail sent OK.";
评论列表
本站所提供的代码,版权归原作者所有,若有侵犯作者版权,请与我们联系,我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。
试试其它关键字
发送邮件
同语言下
.
获取本机所有IP和设备的绑定情况
.
生成隨機密碼
.
取文件的最后修改时间
.
获取本机所有IP和设备的绑定情况
.
将perl脚本变成乱糟糟的一团
.
从 HTML网页中解析出链接
.
使用 HTTP::Request 请求 URL 并将响应保存到文件
.
使用指定的User-Agent抓取网页
.
使用 Net::SMTP发送邮件
.
编写的一个简单 Web服务器
可能有用的
.
纯CSS的工具提示效果
.
在SpringMvc拦截器或者request中取得前端传递过来的Js
.
创建只读权限oracle账户
.
获取准确的操作系统名称的Java工具类
.
金额转换工具 MoneyUtil
.
数组操作ArrayUtil
.
数字计算工具 NumberUtil
.
图片工具类完成图片的截取和任意缩放
.
敏感字符串处理工具类
.
连接FTP、删除、下载文件的工具类
Suzm
贡献的其它代码
(
1
)
.
调用perl,Mail::Sender模块发送邮件
地图
本站
我们
服务
版权
联系
回馈
博客