perl脚本发送邮件

cfsky

use Mail::SendEasy ;　　my $mail =  new Mail::SendEasy(
　　smtp => 'localhost' ,   #SMTP服务器
　　user  => 'foo' ,           #认证用户名
　　pass => 123 ,           #认证密码
　　)  ;
　　#SMTP端口默认为25，连接超时时间默认为120秒
　　my $status = $mail->send(
　　from    =>  'sender@foo.com' ,   #发送者邮件地址
　　from_title => 'Foo Name'  ,         #发件人名字或标题
　　reply   => 're@foo.com' ,           #回复信件地址
　　error    => 'error@foo.com' ,        #发送出错信息地址
　　to      =>  'recp@domain.foo' ,     #接受邮件地址
　　cc      => 'recpcopy@domain.foo'  , # 接受邮件副本地址
　　subject => "MAIL Test" ,         # 邮件主题
　　msg      => "The Plain Msg..." ,  #文本格式邮件内容
　　html    => "The  HTML Msg..." , #html格式邮件内容，有这个则msg无效
　　msgid   => "0101"  , #给邮件头加一个ID号
　　) ;
　　if (!$status) { print $mail->error  ;}