回首页

<?php
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
程序名：  Email
 描述：  这个程序是用来作发送电子邮件用途的

可被用发送的邮件可以是：一般文本，含HTML标识的文本，或两都是，以及邮件附件或邮件模板。

测试：
 test_email.php3:

$mail->setTo("myEmail@yo.com");
$mail->send();


更改日志:
 时间  姓名  备注
----------- ----------- ------------------------------------------------
 10/21/1999   R.Chambers  创建
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 试用报告:
没有出错报告
可以发送带HTML标识的文本
可以发送有附件的并HTML标识的文本
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数列表:
 setTo($inAddress)
 setCC($inAddress)
 setBCC($inAddress)
 setFrom($inAddress)
 setSubject($inSubject)
 setText($inText)
 setHTML($inHTML)
 setAttachments($inAttachments)
 checkEmail($inAddress)
 loadTemplate($inFileLocation,$inHash,$inFormat)
 getRandomBoundary($offset)
 getContentType()
 formatTextHeader()
 formatHTMLHeader()
 formatAttachmentHeader($inFileLocation)
 send()
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/

class Email
{
//---全局变量
var $mailTo  = ""; // 邮件目的地址数组
var $mailCC  = ""; // 抄送人地址
var $mailBCC  = ""; // 暗送人地址
var $mailFrom  = ""; // 发送人地址
var $mailSubject  = ""; // 邮件主题
var $mailText  = ""; // 纯文本信息
var $mailHTML  = ""; // html 文本信息
var $mailAttachments  = ""; // 附件数组

/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  setTo($inAddress)
 描述：  设置电子邮件地址
参数： $inAddress 是 string 类型
按逗号把各个邮件地址分离出来
返回值：  如果成功则返回true 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function setTo($inAddress){
//--把逗号做分隔符分离邮件地址
$addressArray = explode( ",",$inAddress);
//--检查每一个邮件地址，如果没有错误就退出。
for($i=0;$i<count($addressArray);$i++){
if($this->checkEmail($addressArray[$i])==false) return false;
}
//--如果所有的邮件地址都正确，那么调用implode把邮件地址恢复
$this->mailTo = implode($addressArray, ",");
 return true;
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  setCC($inAddress)
 描述：设置邮件的抄送地址
参数： $inAddress 是String型
按逗号把各个邮件地址分离出来
返回值：  如果成功则返回true 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function setCC($inAddress){

$addressArray = explode( ",",$inAddress);

for($i=0;$i<count($addressArray);$i++){
if($this->checkEmail($addressArray[$i])==false) return false;
}

$this->mailCC = implode($addressArray, ",");
 return true;
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  setBCC($inAddress)
 描述：  设置暗送邮件地址
参数： $inAddress 是String型
按逗号把各个邮件地址分离出来
返回值：  如果成功则返回true 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function setBCC($inAddress){

$addressArray = explode( ",",$inAddress);

for($i=0;$i<count($addressArray);$i++){
if($this->checkEmail($addressArray[$i])==false) return false;
}

$this->mailBCC = implode($addressArray, ",");
 return true;
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  setFrom($inAddress)
 描述：  设置邮件发送人地址
参数： $inAddress 是 string 型 (只有一个邮件地址)
返回值：如果成功则返回true
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function setFrom($inAddress){
if($this->checkEmail($inAddress)){
$this->mailFrom = $inAddress;
 return true;
}
 return false;
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  setSubject($inSubject)
 描述：  设置邮件主题
参数：$inSubject 是 string 类型
返回值：如果成功则返回true
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function setSubject($inSubject){
if(strlen(trim($inSubject)) > 0){
$this->mailSubject = ereg_replace( "\n", "",$inSubject);
 return true;
}
 return false;
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  setText($inText)
 描述：设置邮件纯文本内容
参数： $inText 是 string 类型
返回值：如果成功则返回true
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function setText($inText){
if(strlen(trim($inText)) > 0){
$this->mailText = $inText;
 return true;
}
 return false;
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  setHTML($inHTML)
描述：设置邮件HTML文本内容
参数： $inHTML 是 string 类型
返回值：如果成功则返回true
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function setHTML($inHTML){
if(strlen(trim($inHTML)) > 0){
$this->mailHTML = $inHTML;
 return true;
}
 return false;
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  setAttachments($inAttachments)
 描述： 存贮附件字符串
参数： $inAttachments 是一个包含了目录信息的String类型
 以逗号为分隔符
返回值：如果成功则返回true
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function setAttachments($inAttachments){
if(strlen(trim($inAttachments)) > 0){
$this->mailAttachments = $inAttachments;
 return true;
}
 return false;
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  checkEmail($inAddress)
 描述：检查邮件地址是法合法
参数：$inAddress 是 string 类型
返回值：如果合法则返回true
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function checkEmail($inAddress){
 return (ereg( "^[^@ ]+@([a-zA-Z0-9\-]+\.)+([a-zA-Z0-9\-]{2}|net|com|gov|mil|org|edu|int)\$",$inAddress));
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  loadTemplate($inFileLocation,$inHash,$inFormat)
 描述： 读取一个模板文件并替换一些宏定义的值
参数：$inFileLocation 是 string 类型，记录目录信息
$inHash 是 Hash 类型，是要被替代的值
$inFormat 是 string 类型，可以是 "text" 或 "html"
返回值：如果被load则返回true
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function loadTemplate($inFileLocation,$inHash,$inFormat){
/>
 模板文件应该有像下面那样的样子：
 Dear ~!UserName~,
 Your address is ~!UserAddress~
>/
//--指定模板的一些符号
$templateDelim = "~";
$templateNameStart = "!";
//--设置外部字串
$templateLineOut = "";
//--打开模板文件
if($templateFile = fopen($inFileLocation, "r")){
//--循环分析文件，一行一行的分析
while(!feof($templateFile)){

$templateLine = fgets($templateFile,1000);
//--分开文件的每一行，并把其存于数组中，并且规范其语句
$templateLineArray = explode($templateDelim,$templateLine);

for( $i=0; $i<count($templateLineArray);$i++){
//--从0的位置开始寻找 $templateNameStart 
if(strcspn($templateLineArray[$i],$templateNameStart)==0){
//--在 $templateNameStart 之后得到宏定义的名字
$hashName = substr($templateLineArray[$i],1);
//--替代宏定义的名字
$templateLineArray[$i] = ereg_replace($hashName,(string)$inHash[$hashName],$hashName);
}
}
//--输出字串数全，并把它加入到外部数组中
$templateLineOut .= implode($templateLineArray, "");
}
//--关闭文件
 fclose($templateFile);
//--按固定的格式设置邮件内容
if( strtoupper($inFormat)== "TEXT" ) return($this->setText($templateLineOut));
else if( strtoupper($inFormat)== "HTML" ) return($this->setHTML($templateLineOut));
}
 return false;
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：getRandomBoundary($offset)
 描述：返回一个边界随机值
参数： $offset 是 integer 类型
返回：字符串
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function getRandomBoundary($offset = 0){
 srand(time()+$offset);
 return ( "----".(md5(rand())));
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：getContentType($inFileName)
 描述：为文件种类返回一个 内容的种类
参数：$inFileName 是一个 string 类型，记录文件名(可以含路径)
返回：字串
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function getContentType($inFileName){
//--剥去路径
$inFileName = basename($inFileName);
//--检查文件扩展名
if(strrchr($inFileName, ".") == false){
 return  "application/octet-stream";
}
//--得到文件扩展名，并判断文件类型
$extension = strrchr($inFileName, ".");
 switch($extension){
 case  ".gif":  return  "image/gif";
 case  ".gz":  return  "application/x-gzip";
 case  ".htm":  return  "text/html";
 case  ".html":  return  "text/html";
 case  ".jpg":  return  "image/jpeg";
 case  ".tar":  return  "application/x-tar";
 case  ".txt":  return  "text/plain";
 case  ".zip":  return  "application/zip";
 default:  return  "application/octet-stream";
}
 return  "application/octet-stream";
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  formatTextHeader
 描述：  为文本返回一个格式化过的头信息
参数：  没有
返回： 字串
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function formatTextHeader(){
$outTextHeader = "";
$outTextHeader .= "Content-Type: text/plain; charset=us-ascii\n";
$outTextHeader .= "Content-Transfer-Encoding: 7bit\n\n";
$outTextHeader .= $this->mailText. "\n";
 return $outTextHeader;
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  formatHTMLHeader
 描述： 返回一个HTML的头信息
参数：  没有
返回： 字串
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function formatHTMLHeader(){
$outHTMLHeader = "";
$outHTMLHeader .= "Content-Type: text/html; charset=us-ascii\n";
$outHTMLHeader .= "Content-Transfer-Encoding: 7bit\n\n";
$outHTMLHeader .= $this->mailHTML. "\n";
 return $outHTMLHeader;
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  formatAttachmentHeader($inFileLocation)
 描述： 返回一个附件的头信息
参数： $inFileLocation 是相关目录的String型变量
返回： 字串
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function formatAttachmentHeader($inFileLocation){
$outAttachmentHeader = "";
//--通过文件夹的扩展名得到 content-type 
$contentType = $this->getContentType($inFileLocation);
//--如果是TEXT的类型，那么就用标准的7bit编码
if(ereg( "text",$contentType)){
//--格式化信息头
$outAttachmentHeader .= "Content-Type: ".$contentType. ";\n";
$outAttachmentHeader .= ' name="'.basename($inFileLocation). '"'. "\n";
$outAttachmentHeader .= "Content-Transfer-Encoding: 7bit\n";
$outAttachmentHeader .= "Content-Disposition: attachment;\n"; //--other: inline
$outAttachmentHeader .= ' filename="'.basename($inFileLocation). '"'. "\n\n";
$textFile = fopen($inFileLocation, "r");
//--一行一行地检查文件
while(!feof($textFile)){
$outAttachmentHeader .= fgets($textFile,1000);
}
//--关闭文件
 fclose($textFile);
$outAttachmentHeader .= "\n";
}
//--非TEXT类型用 64-bit 编码
else{
//--格式头信息
$outAttachmentHeader .= "Content-Type: ".$contentType. ";\n";
$outAttachmentHeader .= ' name="'.basename($inFileLocation). '"'. "\n";
$outAttachmentHeader .= "Content-Transfer-Encoding: base64\n";
$outAttachmentHeader .= "Content-Disposition: attachment;\n"; //--other: inline
$outAttachmentHeader .= ' filename="'.basename($inFileLocation). '"'. "\n\n";
//--调用 uuencode 命令
 exec( "uuencode -m $inFileLocation nothing_out",$returnArray);
//--加入每一行的返回值
for ($i = 1; $i<(count($returnArray)); $i++){
$outAttachmentHeader .= $returnArray[$i]. "\n";
}
}
 return $outAttachmentHeader;
}
/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
函数：  send()
 描述： 发送邮件
参数：  没有
返回： 发送成功返回真
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>/
function send(){
//--把邮件头设为空
$mailHeader = "";
//--加入抄送地址
if($this->mailCC != "") $mailHeader .= "CC: ".$this->mailCC. "\n";
//--加入暗送地址
if($this->mailBCC != "") $mailHeader .= "BCC: ".$this->mailBCC. "\n";
//--加入发送人地址
if($this->mailFrom != "") $mailHeader .= "FROM: ".$this->mailFrom. "\n";

//---------------------------信息类型-------------------------------
//--TEXT文本
if($this->mailText != "" && $this->mailHTML == "" && $this->mailAttachments == ""){
 return mail($this->mailTo,$this->mailSubject,$this->mailText,$mailHeader);
}
//--HTML 和 TEXT
else if($this->mailText != "" && $this->mailHTML != "" && $this->mailAttachments == ""){
//--得到一个随机边界
$bodyBoundary = $this->getRandomBoundary();
//--格式化头信息
$textHeader = $this->formatTextHeader();
$htmlHeader = $this->formatHTMLHeader();
//--设置 MIME 版本
$mailHeader .= "MIME-Version: 1.0\n";

$mailHeader .= "Content-Type: multipart/alternative;\n";
$mailHeader .= ' boundary="'.$bodyBoundary. '"';
$mailHeader .= "\n\n\n";
//--加入信体和边界
$mailHeader .= "--".$bodyBoundary. "\n";
$mailHeader .= $textHeader;
$mailHeader .= "--".$bodyBoundary. "\n";
//--加入HTML和结束边界
$mailHeader .= $htmlHeader;
$mailHeader .= "\n--".$bodyBoundary. "--";
//--发送信息
 return mail($this->mailTo,$this->mailSubject, "",$mailHeader);
}
//--HTML 和 TEXT 和 附件
else if($this->mailText != "" && $this->mailHTML != "" && $this->mailAttachments != ""){

$attachmentBoundary = $this->getRandomBoundary();
//--为所有的部分和边界设置信息头
$mailHeader .= "Content-Type: multipart/mixed;\n";
$mailHeader .= ' boundary="'.$attachmentBoundary. '"'. "\n\n";
$mailHeader .= "This is a multi-part message in MIME format.\n";
$mailHeader .= "--".$attachmentBoundary. "\n";

//--TEXT 和 HTML--
$bodyBoundary = $this->getRandomBoundary(1);
//--格式化头信息
$textHeader = $this->formatTextHeader();
$htmlHeader = $this->formatHTMLHeader();
//--设置 MIME 版本
$mailHeader .= "MIME-Version: 1.0\n";
//--为所有的部分和边界设置信息头
$mailHeader .= "Content-Type: multipart/alternative;\n";
$mailHeader .= ' boundary="'.$bodyBoundary. '"';
$mailHeader .= "\n\n\n";
//--加入信体和边界
$mailHeader .= "--".$bodyBoundary. "\n";
$mailHeader .= $textHeader;
$mailHeader .= "--".$bodyBoundary. "\n";
//--加入 html 和 结尾边界
$mailHeader .= $htmlHeader;
$mailHeader .= "\n--".$bodyBoundary. "--";

//--得到附件文件名数组
$attachmentArray = explode( ",",$this->mailAttachments);
//--检索第一个附件
for($i=0;$i<count($attachmentArray);$i++){
//--附件分隔标志
$mailHeader .= "\n--".$attachmentBoundary. "\n";
//--得到附件信息
$mailHeader .= $this->formatAttachmentHeader($attachmentArray[$i]);
}
$mailHeader .= "--".$attachmentBoundary. "--";
 return mail($this->mailTo,$this->mailSubject, "",$mailHeader);
}
 return false;
}
}
?>

回首页