请注意：程序中使用了http认证功能，此功能需配合apache服务器使用。

--------------------------------------------------------------------------------

将以下代码分别存为 index.php3, imapfuncs.phl

配置imapfuncs.phl文件中的$M_HOST = "localhost"; $M_MAILSERVER = "transit.fast.no";

然后浏览 index.php3 即可.

--------------------------------------------------------------------------------

index.php3

/* $Id: index.php3,v 1.3 1999/04/14 12:12:32 borud Exp $ */

/* load the IMAP library functions we've written */

include("imapfuncs.phl");

m_login($m);

?>

if ($cmd == "delete") {

m_delete($marked, $m);

m_list($m);

}

elseif ($cmd == "display") {

m_display($n, $m);

}

elseif ($cmd == "compose" || $cmd == "reply") {

m_compose($n, $m);

}

elseif ($cmd == "send") {

m_send($to, $subject, $body);

m_list($m);

}

else {

m_list($m);

}

?>

--------------------------------------------------------------------------------

imapfuncs.phl

/* $Id: imapfuncs.phl,v 1.4 1999/04/14 12:12:32 borud Exp $ */

/* configurable parameters */

$M_HOST = "localhost";

$M_MAILSERVER = "transit.fast.no";

$M_COLOR_ODD = "#CCCCCC";

$M_COLOR_EVEN = "#EEEEEE";

$M_COLOR_HEAD = "#AAAAFF";

$M_COLOR_BG = "#FFFFFF";

/* globals */

$M_PORT = 143;

$M_SERVICE = "imap";

$M_SYSNAME = "Simple PHP3 IMAP Interface 1.0";

$M_MBOX = "{$M_HOST:$M_PORT/$M_SERVICE}";

$M_REALM = "IMAP Interface";

$MBOX = false;

/* functions */

function m_login ($mailbox = '')

{

global $MBOX, $M_REALM;

global $PHP_AUTH_USER, $PHP_AUTH_PW;

if ($MBOX) {

return true;

}

if (! $PHP_AUTH_USER) {

m_reject($M_REALM);

}

$MBOX = @imap_open(m_mailbox_name($mailbox), $PHP_AUTH_USER, $PHP_AUTH_PW);

if (! $MBOX) {

m_reject($M_REALM);

}

return true;

}

function m_list($mailbox = '')

{

global $MBOX, $PHP_SELF;

global $M_COLOR_ODD, $M_COLOR_EVEN, $M_COLOR_HEAD, $M_COLOR_BG;

/* if not logged into server, do so */

if (! $MBOX) {

if (! m_login($mailbox)) {

return false;

}

}

$num = imap_num_msg($MBOX);

echo "

return true;

}

function m_display($msgno, $mailbox = '')

{

global $MBOX, $M_COLOR_HEAD, $M_COLOR_BG;

global $PHP_SELF;

if (! $MBOX) {

if (! m_login($mailbox)) {

return false;

}

}

$struc = imap_fetchstructure($MBOX, $msgno);

if (! $struc) {

return false;

}

$head = imap_header($MBOX, $msgno, 50, 50, 0);

$from = $head->fromaddress;

$subj = $head->subject;

$date = $head->date;

$body = htmlentities(imap_body($MBOX, $msgno));

echo "

n"; 
echo "From: $fromn"; 
echo "Subject: $subjn"; 
echo "Date: $daten"; 
echo "
n"; 
echo "$bodyn"; 
echo "

return true;

}

function m_delete ($msgno, $mailbox='')

{

global $MBOX;

if (is_array($msgno)) {

while (list($dummy, $num) = each($msgno)) {

imap_delete($MBOX, $num);

}

imap_expunge($MBOX);

} else {

return false;

}

return true;

}

function m_compose ($msgno='', $mailbox='')

{

global $MBOX, $M_COLOR_HEAD, $M_COLOR_BG;

global $PHP_SELF, $PHP_AUTH_USER, $M_MAILSERVER;

if ($msgno != '') {

$head = imap_header($MBOX, $msgno, 150, 150, 0);

$to = $head->fromaddress;

$subject = "Re: " . $head->subject;

$body = "$to wrote:n";

$body .= ereg_replace("n","n>", "n" . imap_body($MBOX, $msgno));

} else {

$to = "";

$subject = "";

$body = "";

}

echo "