echo "<PRE>Message ", Key($result), ", Unique ID - \"", $result[Key($result)], "\"</PRE>\n";
}
if ($messages > 0) {
if (($error = $pop3->RetrieveMessage(1, $headers, $body, 2)) == "") {
echo "<PRE>Message 1:\n---Message headers starts below---</PRE>\n";
for ($line = 0; $line < count($headers); $line++) {
echo "<PRE>", HtmlSpecialChars($headers[$line]), "</PRE>\n";
}
echo "<PRE>---Message headers ends above---\n---Message body starts below---</PRE>\n";
for ($line = 0; $line < count($body); $line++) {
echo "<PRE>", HtmlSpecialChars($body[$line]), "</PRE>\n";
}
echo "<PRE>---Message body ends above---</PRE>\n";
if (($error = $pop3->DeleteMessage(1)) == "") {
echo "<PRE>Marked message 1 for deletion.</PRE>\n";
if (($error = $pop3->ResetDeletedMessages()) == "") {
echo "<PRE>Resetted the list of messages to be deleted.</PRE>\n";
}
}
}
}
if ($error == "" && ($error = $pop3->Close()) == "") {
echo "<PRE>Disconnected from the POP3 server "" . $pop3->hostname . "".</PRE>\n";
}
} else {
$error = $result;
}
} else {
$error = $result;
}
}
