if(basename($PHP_SELF)== "class.html_mime_mail.inc")

{

include "fileinfo.inc";

echo "

如果不含圖檔:
\$mail = new html_mime_mail();
\$html =\"HTML內容\";
\$mail->add_html(\$html, \$text);
\$mail->build_message();
\$mail->send(收信人,收信Email,發信人,發信Email,標題,額外Header);

如果含圖檔:
\$url=\"www.cuti.com.my/AD/\";    //圖檔位?FONT color="#007700">} ?FONT color="#007700">}頭無http:// 結尾有斜線
\$path=\"/MAIL/AD/\";    //圖檔路徑 結尾有斜線
\$filename1 = 'a.jpg';
\$backgrnd1 = fread(\$fp = fopen(\$path.\$filename1, 'r'), filesize(\$path.\$filename1));
fclose(\$fp);
...依此類推...
\$filename6 = 'f.gif';
\$backgrnd6 = fread(\$fp = fopen(\$path.\$filename6, 'r'), filesize(\$path.\$filename6));
fclose(\$fp);
\$mail->add_html_image(\$backgrnd1,\$filename1,'image/jpeg','http://'.\$url.\$filename1);
...依此類推...
\$mail->add_html_image(\$backgrnd6,\$filename6,'image/gif','http://'.\$url.\$filename6);
\$mail = new html_mime_mail();
\$html =\"HTML含圖內容\";
\$mail->add_html(\$html, \$text);
\$mail->build_message();
\$mail->send(收信人,收信Email,發信人,發信Email,標題,額外Header);
";
}
/***************************************
** Title.........: HTML Mime Mail class
** Version.......: 1.26
** Author........: Richard Heyes 
** Filename......: html_mime_mail.class
** Last changed..: 25/06/2000
** Notes.........: Based upon mime_mail.class
**                 by Tobias Ratschiller 
**                 and Sascha Schumann .
**                  - Thanks to Thomas Flemming for supplying a fix
**                    for Win32.
**                  - Made headers terminated by CRLF instead of LF, now
**                    compliant with RFC822. Thanks to Pao-Hsi Huang.
**                  - Fixed bug; certain mail systems (gmx.net in particular)
**                    were rejecting mail because of a space character either
**                    side of the equal sign on the boundary line. Thanks to
**                    Peter Holm for notifying me.
**                  - Fixed bug; $html_images was tested to be an array or not
**                    but was set to be an array during object creation, so the
**                    test always returned true. Thanks to Bob Silva for
**                    notifying me.
**                  - Fixed bug; when looping with $obj->send(), From: headers
**                    were accumulating. Bummer. Thanks to Lance Rasmussen for
**                    notifying me.
**                  - See http://www.heyes-computing.net/scripts/ for a zip/tar
**                    containing an example script.
***************************************/
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; $ihtml_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(count($this->html_images) == 0){
$this->multipart.=  '--'.$orig_boundary. "\n";
$this->multipart.=  'Content-Type: multipart/alternative;'.chr(10).chr(9). 'boundary="'.$sec_boundary. "\"\n\n\n";
// ttj added below
$this->multipart.=  '--'.$thr_boundary. "\n";
$this->multipart.=  'Content-Type: text/plain'. "\n\n";
$this->multipart.= $this->html_text. "\n\n";
$this->multipart.=  '--'.$thr_boundary. "--\n\n";
// ttj added above
$this->multipart.=  '--'.$sec_boundary. "\n";
$this->multipart.=  'Content-Type: text/plain'. "\n";
$this->multipart.=  'Content-Transfer-Encoding: base64'. "\n\n";
$this->multipart.= chunk_split(base64_encode($this->html_text)). "\n\n";
// ttj added below
$this->multipart.=  '--'.$thr_boundary. "\n";
$this->multipart.=  'Content-Type: text/html'. "\n\n";
$this->multipart.= $this->html. "\n\n";
$this->multipart.=  '--'.$thr_boundary. "--\n\n";
// ttj added above
$this->multipart.=  '--'.$sec_boundary. "\n";
$this->multipart.=  'Content-Type: text/html'. "\n";
$this->multipart.=  'Content-Transfer-Encoding: base64'. "\n\n";
$this->multipart.= chunk_split(base64_encode($this->html)). "\n\n";
$this->multipart.=  '--'.$sec_boundary. "--\n\n";
}else{
$this->multipart.=  '--'.$orig_boundary. "\n";
$this->multipart.=  'Content-Type: multipart/related;'.chr(10).chr(9). 'boundary="'.$sec_boundary. "\"\n\n\n";
$this->multipart.=  '--'.$sec_boundary. "\n";
$this->multipart.=  'Content-Type: multipart/alternative;'.chr(10).chr(9). 'boundary="'.$thr_boundary. "\"\n\n\n";
$this->multipart.=  '--'.$thr_boundary. "\n";
$this->multipart.=  'Content-Type: text/plain'. "\n";
$this->multipart.=  'Content-Transfer-Encoding: base64'. "\n\n";
$this->multipart.= chunk_split(base64_encode($this->html_text)). "\n\n";
// ttj added below
$this->multipart.=  '--'.$thr_boundary. "\n";
$this->multipart.=  'Content-Type: text/html'. "\n\n";
$this->multipart.= $this->html. "\n\n";
$this->multipart.=  '--'.$thr_boundary. "--\n\n";
// ttj added above
$this->multipart.=  '--'.$thr_boundary. "\n";
$this->multipart.=  'Content-Type: text/html'. "\n";
$this->multipart.=  'Content-Transfer-Encoding: base64'. "\n\n";
$this->multipart.= chunk_split(base64_encode($this->html)). "\n\n";
$this->multipart.=  '--'.$thr_boundary. "--\n\n";
for($i=0; $ihtml_images); $i++){
$this->multipart.=  '--'.$sec_boundary. "\n";
$this->build_html_image($i);
}
$this->multipart.=  "--".$sec_boundary. "--\n\n";
}
}
/***************************************
** Adds an image to the list of embedded
** images.
***************************************/
function add_html_image($file, $name =  '', $c_type= 'application/octet-stream', $location= ''){
$this->html_images[] = array(  'body' => $file,
'name' => $name,
'c_type' => $c_type,
'location' => $location,
'cid' => md5(uniqid(time())) );
}
/***************************************
** Adds a file to the list of attachments.
***************************************/
function add_attachment($file, $name =  '', $c_type= 'application/octet-stream'){
$this->parts[] = array(  'body' => $file,
'name' => $name,
'c_type' => $c_type );
}
/***************************************
** Builds an embedded image part of an
** html mail.
***************************************/
function build_html_image($i){
$this->multipart.=  'Content-Type: '.$this->html_images[$i][ 'c_type'];
if($this->html_images[$i][ 'name'] !=  '') $this->multipart .=  '; name="'.$this->html_images[$i][ 'name']. "\"\n";
else $this->multipart .=  "\n";
$this->multipart.=  'Content-Transfer-Encoding: base64'. "\n";
$this->multipart.=  'Content-Location:'.$this->html_images[$i][ 'location']. "\n";
$this->multipart.=  'Content-ID: <'.$this->html_images[$i][ 'cid']. ">\n\n";
$this->multipart.= chunk_split(base64_encode($this->html_images[$i][ 'body'])). "\n";
}
/***************************************
** Builds a single part of a multipart
** message.
***************************************/
function build_part($i){
$message_part =  '';
$message_part.=  'Content-Type: '.$this->parts[$i][ 'c_type'];
if($this->parts[$i][ 'name'] !=  '')
$message_part .=  '; name="'.$this->parts[$i][ 'name']. "\"\n";
else
$message_part .=  "\n";
// Determine content encoding.
if($this->parts[$i][ 'c_type'] ==  'text/plain'){
$message_part.=  'Content-Transfer-Encoding: base64'. "\n\n";
$message_part.= chunk_split(base64_encode($this->parts[$i][ 'body'])). "\n";
}else{
$message_part.=  'Content-Transfer-Encoding: base64'. "\n";
$message_part.=  'Content-Disposition: attachment; filename="'.$this->parts[$i][ 'name']. "\"\n\n";
$message_part.= chunk_split(base64_encode($this->parts[$i][ 'body'])). "\n";
}
return $message_part;
}
/***************************************
** Builds the multipart message from the
** list ($this->parts).
***************************************/
function build_message(){
$boundary =  '=_'.md5(uniqid(time()));
$this->headers.=  "MIME-Version: 1.0\n";
$this->headers.=  "Content-Type: multipart/mixed;".chr(10).chr(9). "boundary=\"".$boundary. "\"\n";
$this->multipart =  '';
//                $this->multipart.= "This is a MIME encoded message.\nCreated by html_mime_mail.class.\nSee http://www.heyes-computing.net/scripts/ for a copy.\n\n";
if(isset($this->do_html) AND $this->do_html == 1) $this->build_html($boundary);
if(isset($this->body) AND $this->body !=  '') $this->parts[] = array( 'body' => $this->body,  'name' =>  '',  'c_type' =>  'text/plain');
for($i=(count($this->parts)-1); $i>=0; $i--){
$this->multipart.=  '--'.$boundary. "\n".$this->build_part($i);
}
$this->mime = $this->multipart. "--".$boundary. "--\n";
}
/***************************************
** Sends the mail.
***************************************/
function send($to_name, $to_addr, $from_name, $from_addr, $subject =  '', $headers =  ''){
if($to_name !=  '') $to =  '"'.$to_name. '" <'.$to_addr. '>';
else $to = $to_addr;
if($from_name !=  '') $from =  '"'.$from_name. '" <'.$from_addr. '>';
else $from = $from_addr;
mail($to, $subject, $this->mime,  'From: '.$from. "\n".$headers. "\n".$this->headers);
}
/***************************************
** Use this method to deliver using direct
** smtp connection. Relies upon Manuel Lemos'
** smtp mail delivery class available at:
** http://phpclasses.upperdesign.com
**
** void smtp_send( string *Name* of smtp object,
**                 string From address,
**                 array  To addresses,
**                 string Subject)
***************************************/
function smtp_send($smtp_obj, $from_addr, $to_addr, $subject){
global $$smtp_obj;
$smtp_obj = $$smtp_obj;
$this->headers .=  'From: '.$from_addr. "\n";
$this->headers .=  'Subject: '.$subject. "\n";
if(substr($this->headers, -2) ==  "\n") $this->headers = substr($this->headers,0,-2);
$this->headers = explode( "\n", $this->headers);
$smtp_obj->sendmessage($from_addr, $to_addr, $this->headers, $this->mime);
}
}  // End of class.
?>