发送mime邮件类

<?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 aclearcase/" target="_blank" >ccumulating. 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; $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.
?>

原文转自：http://www.ltesting.net