[Amin_Mansouri]

کد:

Class for sending mail with MIME attachments in multipart format using
external sendmail, mimencode and zip

<?

class Mail {
    var $from; //The sender
    var $to; //The recipient
    var $subject; //The subject line
    var $headers; //A hash of additional headers (headername => headervalue)
    var $zipname; //The name of the file the attachments are zipped into
                  //($zipname == false if attachments are to be sent
                      //individually)
    var $attachments; //An array of files to attach
    var $body; //The body text of the message
    
    //Mail constructor: initializes vars to default values. 'Nuff said.
    function Mail() {
        $this->from = "";
        $this->to = "";
        $this->subject = "";
        $this->headers = array();
        $this->zipname = false;
        $this->attachments = array();
        $this->body = "";
    }
    
    //Auxiliary method, used to guess a file's MIME type
    //based on its extension. Doesn't know about too many
    //extensions right now
    function guessMIMEType($filename) {
        //GUESS MIME TYPE
        $filename = basename($filename);
        if(strrchr($filename,".") == false) {
            return("application/octet-stream");
        }
        
        $ext = strrchr($filename,".");
        switch($ext) {
            case ".gif":
                return "image/gif";
                break;
            case ".gz":
                return "application/x-gzip";
            case ".htm":
            case ".html":
                return "text/html";
                break;
            case ".jpg":
                return "image/jpeg";
                break;
            case ".tar":
                return "application/x-tar";
                break;
            case ".txt":
                return "text/plain";
                break;
            case ".zip":
                return "application/zip";
                break;
            default:
                return "application/octet-stream";
                break;
        }
    }

    //Cute little convenience method. Supply it with a filename to
    //zip attachments to, or supply it with false if attachments are
    //sent individually
    function ZipAttachments($name) {
        $this->zipname = $name;
    }

    //The workhorse method, does the actually sending of the mail.
    //Doesn't check for errors so be careful!
    function Send($sendmail = "sendmail") {
        if($this->from == "")
            $fp = popen($sendmail . " -i " . $this->to, "w");
        else
            $fp = popen($sendmail . " -i -f\"" . $this->from . "\"
" . $this->to, "w");

        $mime_boundary = "-1747901728-1448367683-913849620=:4553";
        
        if($fp == false)
            return false;
        
        //Write subject header    
        fwrite($fp,"Subject: " . $this->subject . "\n");
    
        //Write user-defined headers    
        reset($this->headers);
        while(list($hdrname,$hdrval) = each($this->headers)) {
            fwrite($fp,$hdrname . ": " . $hdrval . "\n");
        }
        
        //If there are attachments, this needs to be a MIME message
        if(count($this->attachments) > 0) {
            //Write MIME headers
            fwrite($fp,"MIME-Version: 1.0\n");
            fwrite($fp,"Content-Type: multipart/mixed; BOUNDARY=\""
. $mime_boundary . "\"\n");
            fwrite($fp,"\n");
            //Write dummy message body
            fwrite($fp,"  This message is in MIME format.  The
first part should be readable text,\n");
            fwrite($fp,"  while the remaining parts are likely
unreadable without MIME-aware tools.\n");
            fwrite($fp,"\n");
            
            //Write message text
            fwrite($fp,"--" . "$mime_boundary" . "\n");
            fwrite($fp,"Content-Type: text/plain; charset=US-
ASCII\n");
            fwrite($fp,"\n");
            fwrite($fp,$this->body);
            fwrite($fp,"\n");
            
            //Handle attachments
            if($this->zipname != false) { //IF we've been told to
                                                      //zip the attachments
                fwrite($fp,"--" . $mime_boundary . "\n");
                fwrite($fp,"Content-Type: application/zip; name=
\"". $this->zipname . "\"\n");
                fwrite($fp,"Content-Transfer-Encoding: base64
\n");
                  //fwrite($fp,"Content-ID: " . $content_ID . "\n");
                fwrite($fp,"Content-Description:\n");
                fwrite($fp,"\n");
                $cmdline = "zip - ";
        while(list($key, $attachment_name) =  each($this->attachments))
                    $cmdline .= "$attachment_name ";
                $cmdline .= "| mimencode -b";
                $pp = popen($cmdline,"r");
                while(!feof($pp)) {
                    $data = fread($pp,4096);
                    fwrite($fp,$data);
                }
                pclose($pp);
            }
            else { //no need to zip the attachments, attach them
                               //separately
        while(list($key, $attachment_name) = each($this->attachments)) {
                fwrite($fp,"--" . $mime_boundary . "\n");
      fwrite($fp,"Content-Type: " . $this->guessMIMEType($attachment_name) . ";
      name=\"". basename($attachment_name) . "\"\n");
            fwrite($fp,"Content-Transfer-Encoding: base64\n");
                    //fwrite($fp,"Content-ID: " .
                                        //$content_ID . "\n");
                    fwrite($fp,"Content-Description:\n");
                    fwrite($fp,"\n");
                     $pp = popen("mimencode -b $attachment_name","r");
                    while(!feof($pp)) {
                        $data = fread($pp,4096);
                        fwrite($fp,$data);
                    }
                    pclose($pp);
                }
            }
            
            fwrite($fp,"--" . $mime_boundary . "--\n");
        }
        //No need for a MIME message, so it's an RFC822 message
        else {
            fwrite($fp,"\n");
            fwrite($fp,$this->body);
        }
        
        
        pclose($fp);
    }
}
?>