pear自带的mail类库发邮件代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】 pear自带的mail类库发邮件

作者:Duncan / 发布于2014/11/18/ 1000

用pear自带的mail类库发邮件，可以用pear install 命令来安装对应的库


	$body = "<a href='http://www.baidu.com/' target='_blank'>点我重新生成密码</a>";

	sendMail_smtp("xxxxxxxx@qq.com",'测试',$body);

	function sendMail_smtp($smtpemailto,$mailsubject,$mailbody){
	 //error_reporting(7);

	 require_once 'Mail.php';
	 require_once 'Mail/mime.php';

	 $from = 'admin@xxx.com';
	 $to = $smtpemailto;
	 $password = 'xxxxxx';

	 $mail_config=array(
	 "host"=>"smtp.ym.163.com",
	 "port"=>25,
	 "auth"=>true,
	 "username"=>$from,
	 "password"=>$password,
	 "from"=>$from,
	 );

	 $hdrs = array(
	 'From'=>$from,
	 'To' => $to, //收信地址
	 'Subject'=>$mailsubject
	 );

	 $mime = new Mail_mime();
	 //$mime->setTXTBody($text);
	 //添加附件
	 //$mime->addHTMLImage('php.gif','image/gif','12345',true);
	 $mime->_build_params['html_charset'] = "utf-8";//设置编码格式
	 $mime->_build_params['head_charset'] = "utf-8";//设置编码格式
	 $mime->setHTMLBody($mailbody);
	 $body = $mime->get();
	 $hdrs = $mime->headers($hdrs);

	 $mail = Mail::factory('smtp',$mail_config);
	 $succ = $mail->send($to,$hdrs,$body);

	 if (PEAR::isError($succ))
	 {
	 //echo 'Email sending failed: ' . $succ->getMessage();
	 $err = 'Email sending failed: ' . $succ->getMessage();
	 $content = $to."\\t".date('Y-m-d H:i:s')."\\t ".$err." \\r\\n" ;
	 }
	 else
	 {
	 //$content = $to."\\t".date('Y-m-d H:i:s')."\\t Email sent succesfully \\r\\n" ;
	 return true;

	 }

	}

试试其它关键字

　发邮件　

同语言下

可能有用的

Duncan贡献的其它代码(49)