myimap类，读取邮件

1   
2//////////////////////////////////////////////   
3//Origin by Alpha.Z (5/21/2000)   
4//Modified By Belltree

<[email protected]> (11/01/2000)
///////////////////////////////////////////////
class myimap
{
var $username="";
var $userpwd="";
var $hostname="";
var $port=0;
var $connection=0; //是否连接
var $state="DISCONNECTED"; //连接状态
var $greeting="";
var $must_update=0;
var $inStream=0;
var $num_msg_parts = 0;
var $attach;
var $num_of_attach = 0;

function open()
{
if ( $this->port==110)
$this->inStream=imap_open("{". $this->hostname."/pop3:110}inbox", $this->username, $this->userpwd);
else
$this->inStream=imap_open("{". $this->hostname.":143}INBOX", $this->username, $this->userpwd);

if ( $this->inStream)
{
//echo "用户： $this->username 的信箱连接成功。<br/>";
return $inStream;
}
else
{
echo "用户： $this->username 的信箱连接失败。<br/>";
return 0;
}
}

Function close()
{
if(imap_close( $this->inStream))
{
//echo "<hr/>已经与服务器 $this->hostname 断开连接。";
return 1;
}
else
{
//echo "<hr/>与服务器 $this->hostname 断开连接失败。";
return 0;
}
}

function DeleteMail( $msg_no){
if (@imap_delete( $this->inStream, $msg_no))
return true;
else
return false;
}

function ExpungeMail(){
if (@imap_expunge( $this->inStream))
return true;
else
return false;
}

for ( $i=0; $i< $mboxinfo->Nmsgs; $i++)
{
if (( $i>= $page* $page_size) and ( $i< $page* $page_size+ $page_size)){
$msg_no = @imap_msgno( $this->inStream, $sorted[ $i]);
$msgHeader = @imap_header( $this->inStream, $msg_no);
//日期

if (isset( $msgHeader->date))
{
$date = $msgHeader->date;

if (ord( $date) > 64)
$date = substr( $date, 5);

$datepart = split(" ", $date);
$date = $datepart[0]." ". $datepart[1]." ". $datepart[2]." ". $datepart[3];
/*
while (strstr(' ', $date))
{
$date = str_replace(' ', ' ', $date);
}
*/
}

if (isset( $msgHeader->from[0]))
{
$from = $msgHeader->from[0];
if (isset( $from->personal))
{
$frm = trim( $this->decode_mime_string( $from->personal));
if (isset( $from->mailbox) && isset( $from->host))
{
$frm_add = $from->mailbox . '@' . $from->host;
}
}
else
if (isset( $from->mailbox) && isset( $from->host))
{
$frm = $from->mailbox . '@' . $from->host;
}
else
if (isset( $msgHeader->fromaddress))
$frm = trim( $h->fromaddress);
}
else
if (isset( $msgHeader->fromaddress))
$frm = trim( $msgHeader->fromaddress);

if (isset( $msgHeader->toaddress))
$to = trim( $msgHeader->toaddress);
else
$to = "未知";

if (isset( $msgHeader->subject))
$sub = trim( $this->decode_mime_string( $msgHeader->subject));
if ( $sub == "")
$sub = "无主题";
if (isset( $msgHeader->Size))
$msg_size = ( $msgHeader->Size > 1024) ? sprintf("%.0f kb", $msgHeader->Size / 1024) : $msgHeader->Size;
//if (strlen( $frm) > 50)
// $frm = substr( $frm, 0, 50) . '...';
if (strlen( $sub) > 50)
$sub = substr( $sub, 0, 50) . '...';
if ( $msgHeader->Unseen == "U")
$newmail = "未读";
else
$newmail = "已读";
echo "<tr>\n";
echo "<td align="center"> $newmail</td><td align='"center"'></td>\n";
echo '<td>'. $frm.'</td><td><a href="mail_read.php?msg='. $msg_no.'">'. $sub.'</a></td><td width="125">'. $date.'</td><td width="50">'. $msg_size.'</td>';
echo "</tr>\n";
}}
echo "</table>\n";
echo "<table border="0" cellpadding="4" cellspacing="4" width="100%"><tr>\n";
if ( $page == 0)
echo "<td>第一页</td>\n";
else
echo "<td><a href='"mail_list.php?page=0"'>第一页</a></td>\n";
if (( $prev_page = $page-1) < 0)
echo "<td>前一页</td>\n";
else
echo "<td><a $prev_page"="" href='"mail_list.php?page='>前一页</a></td>\n";

if (( $next_page = $page + 1) >= $last_page)
echo "<td>后一页</td>\n";
else
echo "<td><a $next_page"="" href='"mail_list.php?page='>后一页</a></td>\n";
$last_page --;
if ( $last_page < $next_page)
echo "<td>最末页</td>\n";
else
echo "<td><a $last_page"="" href='"mail_list.php?page='>最末页</a></td>\n";
echo "</tr></table>\n";
}

function decode_mime_string ( $string)
{
$pos = strpos( $string, '=?');
if (!is_int( $pos))
{
return $string;
}

$preceding = substr( $string, 0, $pos); // save any preceding text

$search = substr( $string, $pos+2, 75); // the mime header spec says this is the longest a single encoded word can be
$d1 = strpos( $search, '?');
if (!is_int( $d1))
{
return $string;
}

$charset = substr( $string, $pos+2, $d1);
$search = substr( $search, $d1+1);

$d2 = strpos( $search, '?');
if (!is_int( $d2))
{
return $string;
}

$encoding = substr( $search, 0, $d2);
$search = substr( $search, $d2+1);

$end = strpos( $search, '?=');
if (!is_int( $end))
{
return $string;
}

$encoded_text = substr( $search, 0, $end);
$rest = substr( $string, (strlen( $preceding . $charset . $encoding . $encoded_text)+6));

switch ( $encoding)
{
case 'Q':
case 'q':
$encoded_text = str_replace('_', '%20', $encoded_text);
$encoded_text = str_replace('=', '%', $encoded_text);
$decoded = urldecode( $encoded_text);
break;

case 'B':
case 'b':
$decoded = urldecode(base64_decode( $encoded_text));
break;

default:
$decoded = '=?' . $charset . '?' . $encoding . '?' . $encoded_text . '?=';
break;
}

return $preceding . $decoded . $this->decode_mime_string( $rest);
}

Function display_toaddress ( $user, $server, $from)
{
return is_int(strpos( $from, $this->get_barefrom( $user, $server)));
}

Function get_barefrom( $user, $server)
{
$barefrom = " $user@ $real_server";

return $barefrom;
}

Function get_structure( $msg_num)
{
$structure=imap_fetchstructure( $this->inStream, $msg_num);
//echo gettype( $structure);
return $structure;
}

Function proc_structure( $msg_part, $part_no, $msg_num)
{
if ( $msg_part->ifdisposition)
{
// See if it has a disposition, The only thing I know of that this, would be used for would be an attachment
// Lets check anyway
if ( $msg_part->disposition == "attachment")
{
$att_name = "unknown";
for ( $lcv = 0; $lcv < count( $msg_part->parameters); $lcv++)
{
$param = $msg_part->parameters[ $lcv];

if ( $param->attribute == "name")
{
$att_name = $param->value;
break;
}
}

$att_name = $this->decode_mime_string( $att_name);

$att_path = $this->username."\". $att_name;

$this->attach[ $this->num_of_attach]= $att_name; //登记附件列表
$this->num_of_attach ++; //登记附件数量
/*
$att_path = $this->username."\". $this->decode_mime_string( $att_name);
if ( $this->attach=="")
$this->attach = $att_name;
else
$this->attach .= ";". $att_name;
*/
if (!is_dir( $this->username))
mkdir( $this->username,0700);
$fp=fopen( $att_path,"w");
switch ( $msg_part->encoding)
{
case 3: // base64
fputs( $fp,imap_base64(imap_fetchbody( $this->inStream, $msg_num, $part_no)));
break;
case 4: // QP
fputs( $fp,imap_qprint(imap_fetchbody( $this->inStream, $msg_num, $part_no)));
break;
default:
fputs( $fp,imap_fetchbody( $this->inStream, $msg_num, $part_no));
break;
}
fclose( $fp);

//if ( $msg_part->type=="5"){
// echo "<p align="center"><hr align="center"/>\n";
// echo "<img $att_path"="" align="center" src='"'/></p>\n";
//}
} // END IF ATTACHMENT
else //NOT ifdisposition
{
// I guess it is used for something besides attachments????
}
}
else
{
// Not an attachment, lets see what this part is...
switch ( $msg_part->type)
{
case 0:
$mime_type = "text";
break;
case 1:
$mime_type = "multipart";
// Hey, why not use this function to deal with all the parts
// of this multipart part
$this->num_msg_parts = count( $msg_part->parts);
for ( $i = 0; $i < $this->num_msg_parts; $i++)
{
if ( $part_no != "")
{
$part_no = $part_no.".";
}
for ( $i = 0; $i < count( $msg_part->parts); $i++)
{
$this->proc_structure( $msg_part->parts[ $i], $part_no.( $i + 1), $msg_num);
}
}
break;
case 2:
$mime_type = "message";
break;
case 3:
$mime_type = "application";
break;
case 4:
$mime_type = "audio";
break;
case 5:
$mime_type = "image";
break;
case 6:
$mime_type = "video";
break;
case 7:
$mime_type = "model";
break;
default:
$mime_type = "unknown";
// hmmm....
}

$full_mime_type = $mime_type."/". $msg_part->subtype;
$full_mime_type = strtolower( $full_mime_type);

// Decide what you what to do with this part
// If you want to show it, figure out the encoding and echo away

switch ( $msg_part->encoding)
{

case 0:
case 1:
if ( $this->num_msg_parts == 0){
echo ereg_replace("\r\n","<br/>\r\n",imap_body( $this->inStream, $msg_num));

}
else{
if ( $part_no!=""){
echo ereg_replace("\r\n","<br/>\r\n",imap_fetchbody( $this->inStream, $msg_num, $part_no));

}
}
break;
case 3: //BASE64

if ( $full_mime_type=="text/plain"){

if ( $this->num_msg_parts == 0){
$content=imap_base64(imap_body( $this->inStream, $msg_num));
}
else{
$content = imap_base64(imap_fetchbody( $this->inStream, $msg_num, $part_no));
$att_path = $this->username . "\\文本内容.txt";
$fp = fopen( $att_path,"w");
fputs( $fp, $content);
fclose( $fp);
$this->attach[ $this->num_of_attach]="文本内容.txt";
$this->num_of_attach++;
}

echo $content;

}

if ( $full_mime_type=="text/html"){
$att_path = $this->username . "\\超文本内容.htm";
$fp = fopen( $att_path,"w");
fputs( $fp,imap_base64(imap_fetchbody( $this->inStream, $msg_num, $part_no)));
fclose( $fp);
$this->attach[ $this->num_of_attach]="超文本内容.htm";
$this->num_of_attach++;
}
break;
case 4: //QPRINT
// use imap_qprint to decode
if ( $this->num_msg_parts == 0){
echo ereg_replace("\n","<br/>",imap_qprint(imap_body( $this->inStream, $msg_num)));

}
else{
echo ereg_replace("\n","<br/>",imap_qprint(imap_fetchbody( $this->inStream, $msg_num, $part_no)));

}
if ( $full_mime_type=="text/html"){
$att_path = $this->username . "\\qp超文本内容.htm";
$fp = fopen( $att_path,"w");
fputs( $fp,imap_base64(imap_fetchbody( $this->inStream, $msg_num, $part_no)));
fclose( $fp);
$this->attach[ $this->num_of_attach]="qp超文本内容.htm";
$this->num_of_attach++;
}
break;
case 5:
// not sure if this needs decoding at all
echo ereg_replace("\n","<br/>",imap_fetchbody( $this->inStream, $msg_num));
break;
default:
//echo ereg_replace("\n","<br/>",imap_fetchbody( $this->inStream, $msg_num, $part_no));
break;
}

}
}

};

  1
  2myimap的扩展类，及读取一封邮件的例子(mail_read.php)   
  3<?   
  4require("myimap.php"); 
  5
  6class myimap_ext extends myimap { 
  7
  8function get_mail_subject( $msg_no){   
  9$msgHeader = @imap_header( $this->inStream, $msg_no);   
 10if (isset( $msgHeader-&gt;subject))   
 11$sub = trim( $this-&gt;decode_mime_string( $msgHeader-&gt;subject));   
 12if ( $sub == "")   
 13$sub = "无主题";   
 14return "Fw:". $sub;   
 15}   
 16function print_attaches(){   
 17for ( $i=0; $i<count( $this-="">attach); $i++){   
 18echo "<a $this-="" href='\"".' target="_blank">username."\\\". $this-&gt;attach[ $i]."\"&gt;". $this-&gt;attach[ $i]."
 19";   
 20}   
 21}   
 22function list_attaches(){   
 23for ( $i=0; $i<count( $this-="">attach); $i++){   
 24if ( $i==0)   
 25$attaches = $this-&gt;attach[ $i];   
 26else   
 27$attaches .= ";". $this-&gt;attach[ $i];   
 28}   
 29return $attaches;   
 30}   
 31} 
 32
 33$imap=new myimap_ext;   
 34$imap-&gt;hostname="localhost";   
 35$imap-&gt;port=143;   
 36$imap-&gt;username="name";   
 37$imap-&gt;userpwd="password"; 
 38
 39$imap-&gt;open(); 
 40
 41$mail_structure= $imap-&gt;get_structure( $msg);   
 42$imap-&gt;proc_structure( $mail_structure,"", $msg);   
 43if ( $imap-&gt;num_of_attach &gt; 0){   
 44$imap-&gt;print_attaches();   
 45}   
 46@ $imap-&gt;close();   
 47?&gt;
 48
 49myimap的例子(mail_list.php)   
 50<?   
 51require("myimap.php"); 
 52
 53$imap=new myimap;   
 54$imap->hostname="localhost";   
 55$imap-&gt;port=143;   
 56$imap-&gt;username="name";   
 57$imap-&gt;userpwd="password"; 
 58
 59$imap-&gt;open();   
 60if ( $page=="") $page=0;   
 61$imap-&gt;CheckMailBox(10, $page);   
 62@ $imap-&gt;close();   
 63?&gt;   
 64
 65
 66如何发送附件（转）   
 67我经常听到这样一个问题："我有一个从网站发来的合同。我如何给通过表单发送的电子邮件增加一个附件呢？"   
 68首先我要说的是要做到这个没有什么简单的办法。你要很好的理解PHP或   
 69其它的服务器端的脚本语言。当然你还要一个真正支持PHP的网站的账号。如果满足了这个前提，在你读完了本章后就可以用PHP发送带附件的电子邮件了。 
 70
 711\. 附件是如何工作的 
 72
 73如果你曾经在PHP的手册中搜索过"附件"函数，那么结果可能是什么都没有（至少在我写本文的时间还没有）。后来你就要花很多时间来了解这方面的知识。 
 74
 75你也许会想当你给某个人发送一封带附件的电子邮件时，附件是和邮件一起放到收件人的信箱里的（比如，如果你给他/她发了一个PNG的图片文件，他/她的信箱里会包含一个txt文件（电子邮件）和一个.png文件（附件））。但这不是它的工作原理。当你加入一个附件时，你的邮件程序把附件转换成纯文本文件，并在你写的内容（实际的电子邮件）后面插入这个文本块。这个，当你把所有的东西发出来后，收件人的信箱里只有一个纯文本文件--一个同时包含附件和实际电子邮件内容的文件。 
 76
 77下面是一个带附件（一个HTML文件）电子邮件的例子。我已经标注了其中重要的几行： 
 78
 79Return-Path: <[email protected]>   
 80Date: Mon, 22 May 2000 19:17:29 +0000   
 81From: Someone <[email protected]>   
 82To: Person <[email protected]>   
 83Message-id: &lt;[email protected]&gt;   
 84Content-type: multipart/mixed; boundary="396d983d6b89a"   
 85Subject: Here's the subject 
 86
 87\--396d983d6b89a   
 88Content-type: text/plain; charset=iso-8859-1   
 89Content-transfer-encoding: 8bit 
 90
 91This is the body of the email. 
 92
 93\--396d983d6b89a   
 94Content-type: text/html; name=attachment.html   
 95Content-disposition: inline; filename=attachment.html   
 96Content-transfer-encoding: 8bit 
 97
 98<html>
 99<head>
100<title>The attachment</title>
101</head>
102<body>
103<h2>This is the attached HTML file</h2>
104</body>
105</html>
106
107\--396d983d6b89a-- 
108
109前面的7行是邮件的头，其中值得注意的是Content-type头部分。这个头告诉邮件程序电子邮件是由一个以上的部分组成的。不含附件的邮件只有一个部分：消息本身。带附件的电子通常至少由两部分组成：消息和附件。这样，带两个附件的邮件由三部分组成：消息，第一个附件和第二个附件。 
110
111带附件的电子邮件的不同部分之间用分界线来分隔。分界线在Content-type头中定义。邮件的每个新部分以两个连字号（--）和分界线开始。最后一个分界线后也有两个连字号，表示这个邮件中没有其它的部分了。 
112
113在每个分界线后有一些行，用来告诉邮件程序这个部分的内容的类型。比如，看看上面例子中第一个分界线后面的两行--以Content-type: text/plain开头的行。这些行说明后面的部分是ISO-8859-1字符集的纯文本。跟在第二个分界线后的行告诉邮件程序现在的部分是一个HTML文件，它的名字是"attachment.html"。 
114
115Content-disposition这持告诉邮件程序如果可能就以内嵌的方式显示附件。现在新的邮件程序会在消息后显示HTML的内容。如果Content-disposition被设为attachment，那么邮件程序就不会显示HTML文件的内容，而是显示一个连接到文件的图标（或其它的类似的东西）。收件人要看附件的内容，必须点击这个图标。一般情况下，如果附件是一些文本（包含HTML），Content-disposition会被设为inline，这是因为现在大部分邮件程序能够不借助其它浏览器而直接显示附件（文本）的内容。如果附件不是文本（比如图片或其它类似的内容），Content-disposition就设为attachment。 
116
1172\. 用PHP生成带附件的电子邮件 
118
119这里一个例子，告诉你如果把一个定义好的HTML文件加为邮件的附件：

我们首先写实际的消息内容

$emailBody = "This is text that goes into the body of the email.";

然后我们要作为附件的HTML文件

$attachment = "<html> <head> <title>The attached file</title> </head> <body> <h2>This is the attached HTML file</h2> </body> </html>";

建立在邮件中分隔不同部分的分界线。

基本上，分界线可以是任意的字符串。

但是重要的一点是确定一个写邮件的人

这会随意写出的字符串，所以我们用

uniqid函数来产生一个随机的字符串。

$boundary = uniqid( "");

现在我们要建立邮件头。不要忘了插入

Content-type头来说明这个邮件包含一个或更多的附件。

$headers = "From: [email protected]
Content-type: multipart/mixed; boundary=" $boundary"";

好，现在我们已经有了邮件的所有内容。

下一件事是修改邮件的主体。

$emailBody = "-- $boundary
Content-type: text/plain; charset=iso-8859-1
Content-transfer-encoding: 8bit

$emailBody

-- $boundary
Content-type: text/html; name=attachment.html
Content-disposition: inline; filename=attachment.html
Content-transfer-encoding: 8bit

$attachment

-- $boundary--";

现在可以把邮件发出去了

mail( "[email protected]", "The subject", $emailBody, $headers);

1
23\. 把用户上传的文件作为附件 
3
4你也许会觉得上面的例子难以理解，但下面...。在下面的例子中事情更难了，因为我们要用一个表单让用户上传他们的文件，并把这个文件作为我们要发的邮件的附件。麻烦的是我们不能预先知道文件的MIME类型。在前面的例子中，我们已经知道该它是一个HTML文件，所以给这个附件设置Content-type头是很简单的。在下面的例子中，MIME类型可能是任意的，因为用户可能会上传一个HTML文件，一个PNG文件，一个vCard文件，或者其它的东西。让我们来看看例子：

现在我们来生成表单。在产生可以上传文件的表单时，

不要忘了把<form>标签的"enctype"属性设为"multipart/form-data".

echo "<form action=" $PHP_SELF" enctype="multipart/form-data" method="post">\n";
echo "<input name="from" type="text"/><br/>\n";
echo "<input name="to" type="text"/><br/>\n";
echo "<input name="subject" type="text"/><br/>\n";
echo "<input name="attachment" type="file"/><br/>\n";
echo "<textarea name="body"></textarea><br/>\n";
echo "<input name="send" type="submit" value="Send"/>\n";
echo "</form>\n";

如果用户已经按了"Send"按钮"

if ( $send) {

定义分界线

$boundary = uniqid( "");

生成邮件头

$headers = "From: $from
Content-type: multipart/mixed; boundary=" $boundary"";

确定上传文件的MIME类型

if ( $attachment_type) $mimeType = $attachment_type;

如果浏览器没有指定文件的MIME类型，

我们可以把它设为"application/unknown".

else $mimeType = "application/unknown";

确定文件的名字

$fileName = $attachment_name;

打开文件

$fp = fopen( $attachment, "r");

把整个文件读入一个变量

$read = fread( $fp, filesize( $attachment));

好，现在变量 $read中保存的是包含整个文件内容的文本块。

现在我们要把这个文本块转换成邮件程序可以读懂的格式

我们用base64方法把它编码

$read = base64_encode( $read);

现在我们有一个用base64方法编码的长字符串。

下一件事是要把这个长字符串切成由每行76个字符组成的小块

$read = chunk_split( $read);

现在我们可以建立邮件的主体

$body = "-- $boundary
Content-type: text/plain; charset=iso-8859-1
Content-transfer-encoding: 8bit

$body

-- $boundary
Content-type: $mimeType; name= $fileName
Content-disposition: attachment; filename= $fileName
Content-transfer-encoding: base64

$read