一、PEAR安装

1、PEAR简介
PEAR是PHP扩展与应用库(the PHP Extension and Application Repository)的缩写。它是一个PHP扩展及应用的一个代码仓库，简单地说，PEAR之于PHP就像是CPAN(Comprehensive Perl Archive Network)之于Perl。
PEAR的基本目标是发展成为PHP扩展和库代码的知识库，而这个项目最有雄心的目标则是试图定义一种标准，这种标准将帮助开发者编写可移植、可重用的代码。
在WAMP集成环境中安装PEAR
1）、首先下载一个go-pear.phar文件。
2）、进入到php的运行目录安装
我这里使用了一个wamp的集成开发环境，版本是wampserver2.2e-php5.4.3-httpd2.2.22-mysql5.5.24-32b，我本地的安装路径是C:\wamp\bin\php\php5.4.3>
执行如下的命令：
php.exe -d phar.require_hash=0 go-pear.phar

到这一步可以修改PEAR安装的$prefix路径，我选择了默认，一路回车进行安装。
3）、修改include_path选项
最后PEAR默认扩展包安装后，提示是否需要配置php.ini文件中的include_path选项指向pear的安装目录

当然需要配置，否则无法使用，Y并回车，安装包会自动修改include_path选项。提示我们环境变量没有设置，所以下面我们还需要设置一下系统的环境变量。
新建一个环境变量名，如下图

然后在PATH变量中加入%php_home%就完成啦~。
2、PEAR常用命令
在命令行方式下，运用PEAR的相关命令可以安装自己需要的PEAR安装包。

• pear help  列出pear的所有命令，类似于pear的命令帮助命令。

• pear help   列出某个pear命令的具体信息

• pear help shortcuts  列出所有pear命令的简写

二、安装Mail，Mail_Mine，Net_SMTP

• 第一步：在cmd中进入到PHP的运行目录，也就是php.exe。

• 第二步：使用pear install Mail，pear install Mail_Mine，pear install Net_SMTP安装好发邮件需要的类库

• 第三步：使用pear list查看以上三个类库是否安装。

三、实例

 $from, 
     'To' => $to, 
     'Subject' => $subject);  //邮件头 
    $smtp = Mail::factory('smtp', 
     array ('host' => $host, 
      'port' => $port, 
      'auth' => true, 
      'username' => $username, 
      'password' => $password)); //服务设置 
       
    //发送邮件 
    $mail = $smtp->send($to, $headers, $body); 
     
    //错误处理 
    if (PEAR::isError($mail))  
    { 
      echo("
". $mail->getMessage() ."
"); 
    }  
    else  
    { 
      echo("
Message successfully sent!
"); 
    } 
 
?>

四、php利用pear:Net_SMTP类发送邮件的方法
在使用以下源代码前，请配置好pear的路径，并下载net_smtp包。
在php.ini文件中根据你的操作系统选择不同的设置方法：
; UNIX: "/path2:/path3"
include_path = ".:./php/pear"
;
; Windows: "\path2;\path3"
;include_path = ".;c:\php\pear"
代码：

connect())) {
die($e->getMessage() . "\n");
}
 
/* smtp需要身份验证 */
$smtp->auth($username,$password,"PLAIN");
 
/*设置发送者邮箱 */
if (PEAR::isError($smtp->mailFrom($from))) {
die("无法设置发送者邮箱为 <$from>\n");
}
 
/* 设置接收邮件者 */
foreach ($rcpt as $to) {
if (PEAR::isError($res = $smtp->rcptTo($to))) {
die("邮件无法投递到 <$to>: " . $res->getMessage() . "\n");
}
}
 
/* 开始发送邮件内容 */
if (PEAR::isError($smtp->data($subj . "\r\n" . $body))) {
die("Unable to send data\n");
}
 
/* 断开连接 */
$smtp->disconnect();
echo "发送成功！";
?>