<?php
if(basename($PHP_SELF)== "class.html_mime_mail.inc")
{
  include  "fileinfo.inc";
  echo  "<pre>
    如果不含圖檔:
     \$mail = new html_mime_mail();
     \$html =\"HTML內容\";
     \$mail->add_html(\$html, \$text);
     \$mail->build_message();
     \$mail->send(收信人,收信Email,發信人,發信Email,標題,額外Header);

    <hr>
    如果含圖檔:
    \$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 <richard.heyes@heyes-computing.net>
** Filename......: html_mime_mail.class
** Last changed..: 25/06/2000
** Notes.........: Based upon mime_mail.class
**                 by Tobias Ratschiller <tobias@dnet.it>
**                 and Sascha Schumann <sascha@schumann.cx>.
**                  - 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-ids.
***************************************/
        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(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; $i<count($this->html_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.
?>