我自己借用精华区里的MIME类写了一个基本的发信小东东(2)


答案：sendmail.php4

<?
//加载发送附件的类
require('html_mime_mail.inc');

if($update!=""){  //如果带附件
    
    //上传附件
    if(!file_exists("c:/ftptmp/".$myfile_name)){
        if(copy($myfile,"c:/ftptmp/".$myfile_name)){
            //读取附件
            $attachment = fread($fp = fopen("c:/ftptmp/".$myfile_name, 'r'), filesize($myfile));
            fclose($fp);
            //unlink("c:/ftptmp/".$myfile_name);删掉
        }
        else {
            echo "上传文件失败！";
            exit();
        }
    }
    else{
        echo "文件重名！";
        exit();
    }
    
    
    //新建一个类的实例，并加入附件
    $mail = new html_mime_mail();
    $mail->add_attachment($attachment, $myfile_name, 'application/octet-stream');
    
    /*---------------------这段示范了如何发HTML信件---------------------------------------
    $filename = 'background.gif';
    $backgrnd = fread($fp = fopen($filename, 'r'), filesize($filename));
    fclose($fp);

    $text = 'This is a test.';
    $html = '<HTML><BODY BACKGROUND="background.gif"><FONT FACE="Verdana, Arial" COLOR="#FF0000">    Success!</FONT><P></BODY></HTML>';
    
    $mail->add_html_image($backgrnd, 'background.gif', 'image/gif');
    $mail->add_html($html, $text);
    -------------------------------------------------------------------------------------*/
    
    //读取正文，将信件封装并发送
    $mail->body=$bodytext;
    $mail->build_message();

    $backvalue=$mail->send(' ',$receivemailbox,' ',$sendmailbox,$subject,' ');
    
    //发送提示信息
    echo "<script     language=javascript>alert('发信OK，按确定返回！');window.location='default.htm'</script>";
}
else{  //如果不带附件
    $backvalue=mail($receivemailbox,$subject,$bodytext,"From:" . $sendmailbox . "\nReply-To:" . $sendmailbox . "\nX-Mailer: PHP/" . phpversion());
    
    if ($result) {
        echo "<script language=javascript>alert('发信OK，按确定返回！');window.location='default.htm'</script>";
    }
    else{
        echo "<script language=javascript>backvalue=window.confirm('发信失败！可能是服务器太忙！是否要重发？');if(backvalue){location.reload()}else{window.location='default.htm'}</script>";
    }
}

?>

html_mime_mail.inc 这个类是精华区里有的。我借来一用

<?
class html_mime_mail{

var $headers;
var $body;
var $multipart;
var $mime;
var $html;
var $html_text;
var $html_images = array();
var $cids = array();
var $do_html;
var $parts = array();

/***************************************
** Constructor function. Sets the headers
** if supplied.
***************************************/
function html_mime_mail($headers = ''){
$this->headers = $headers;
}

/***************************************
** Adds a html part to the mail.
** Also replaces image names with
** content-id's.
***************************************/
function add_html($html, $text){
$this->do_html = 1;
$this->html = $html;
$this->html_text = $text;
if(is_array($this->html_images) AND count($this->html_images) > 0){
for($i=0; $i<count($this->html_images); $i++){
$this->html = ereg_replace($this->html_images[$i]['name'], 'cid:'.$this->html_images[$i]['cid'], $this->html);
}
}
}

/***************************************
** Builds html part of email.
***************************************/
function build_html($orig_boundary){
$sec_boundary = '=_'.md5(uniqid(time()));
$thr_boundary = '=_'.md5(uniqid(time()));

if(!is_array($this->html_images)){
$this->multipart.= '--'.$orig_boundary."\r\n";
$this->multipart.= 'Content-Type: multipart/alternative; boundary="'.$sec_boundary."\"\r\n\r\n\r\n";

$this->multipart.= '--'.$sec_boundary."\r\n";
$this->multipart.= 'Content-Type: text/plain'."\r\n";
$this->multipart.= 'Content-Transfer-Encoding: 7bit'."\r\n\r\n";
$this->multipart.= $this->html_text."\r\n\r\n";

$this->multipart.= '--'.$sec_boundary."\r\n";
$this->multipart.= 'Content-Type: text/html'."\r\n";
$this->multipart.= 'Content-Transfer-Encoding: 7bit'."\r\n\r\n";
$this->multipart.= $this->html."\r\n\r\n";
$this->multipart.= '--'.$sec_boundary."--\r\n\r\n";
}else{
$this->multipart.= '--'.$orig_boundary."\r\n";
$this->multipart.= 'Content-Type: multipart/related; boundary="'.$sec_boundary."\"\r\n\r\n\r\n";

$this->multipart.= '--'.$sec_boundary."\r\n";
$this->multipart.= 'Content-Type: multipart/alternative; boundary="'.$thr_boundary."\"\r\n\r\n\r\n";

$this->multipart.= '--'.$thr_boundary."\r\n";
$this->multipart.= 'Content-Type: text/plain'."\r\n";
$this->multipart.= 'Content-Transfer-Encoding: 7bit'."\r\n\r\n";
$this->multipart.= $this->html_text."\r\n\r\n";

$this->multipart.= '--'.$thr_boundary."\r\n";
$this->multipart.= 'Content-Type: text/html'."\r\n";
$this->multipart.= 'Content-Transfer-Encoding: 7bit'."\r\n\r\n";
$this->multipart.= $this->html."\r\n\r\n";
$this->multipart.= '--'.$thr_boundary."--\r\n\r\n";

for($i=0; $i<count($this->html_images); $i++){
$this->multipart.= '--'.$sec_boundary."\r\n";
$this->build_html_image($i);
}

$this->multipart.= "--".$sec_boundary."--\r\n\r\n";
}
}
/***************************************
** Adds an image to the list of embedded
** images.
***************************************/
function add_html_image($file, $name = '', $c_type='application/octet-stream'){
$this->html_images[] = array( 'body' => $file,
'name' => $name,
'c_type' => $c_type,
'cid' => md5(uniqid(time())) );
}


/*************
上一个：我自己借用精华区里的MIME类写了一个基本的发信小东东(1)：(其实关键是SMTP的设置问题。。)
下一个：在APACHE中，同一个IP配置两个虚拟主机的例子。
更多图片编程知识: