模板
教程
环境
性能
功能
管理
我自己借用精华区里的MIME类写了一个基本的发信小东东(2)
发表于：2007-07-01来源：作者：点击数：
标签：
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:/ft
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"> Suclearcase/" target="_blank" >ccess!</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())) );
}
/***************************************
** 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@#]."\"\r\n";
else $this->multipart .= "\r\n";
$this->multipart.= @#Content-ID: <@#.$this->html_images[$i][@#cid@#].">\r\n";
$this->multipart.= @#Content-Transfer-Encoding: base64@#."\r\n\r\n";
$this->multipart.= chunk_split(base64_encode($this->html_images[$i][@#body@#]))."\r\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@#]."\"\r\n";
else
$message_part .= "\r\n";
// Determine content encoding.
if($this->parts[$i][@#c_type@#] == @#text/plain@#){
$message_part.= @#Content-Transfer-Encoding: 7bit@#."\r\n\r\n";
$message_part.= $this->parts[$i][@#body@#]."\r\n";
}else{
$message_part.= @#Content-Transfer-Encoding: base64@#."\r\n";
$message_part.= @#Content-Disposition: attachment; filename="@#.$this->parts[$i][@#name@#]."\"\r\n\r\n";
$message_part.= chunk_split(base64_encode($this->parts[$i][@#body@#]))."\r\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\r\n";
$this->headers.= "Content-Type: multipart/mixed; boundary=\"".$boundary."\"\r\n";
$this->multipart = @#@#;
$this->multipart.= "This is a MIME encoded message.\r\nCreated by html_mime_mail.class.\r\nSee http://www.heyes-computing.net/scripts/ for a copy.\r\n\r\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."\r\n".$this->build_part($i);
}
$this->mime = $this->multipart."--".$boundary."--\r\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;
$this->headers.= @#From: @#.$from."\r\n";
//$this->headers.= $headers;
mail($to, $subject, $this->mime, $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,
** array Headers,
** string The body)
***************************************/
function smtp_send($smtp_obj, $from_addr, $to_addr){
global $$smtp_obj;
$smtp_obj = $$smtp_obj;
if(substr($this->headers, -2) == "\r\n") $this->headers = substr($this->headers,0,-2);
$this->headers = explode("\r\n", $this->headers);
$smtp_obj->sendmessage($from_addr, $to_addr, $this->headers, $this->mime);
}
} // End of class.
?>
