CascadiaPHP 2024

IMAP, POP3 and NNTP

add a note

User Contributed Notes 3 notes

up
51
Wil Barath
14 years ago
For all the people coming here praying for:

1) a dead-easy way to read MIME attachments, or
2) a dead-easy way to access POP3 folders

Look no further.

<?php
function pop3_login($host,$port,$user,$pass,$folder="INBOX",$ssl=false)
{
$ssl=($ssl==false)?"/novalidate-cert":"";
return (
imap_open("{"."$host:$port/pop3$ssl"."}$folder",$user,$pass));
}
function
pop3_stat($connection)
{
$check = imap_mailboxmsginfo($connection);
return ((array)
$check);
}
function
pop3_list($connection,$message="")
{
if (
$message)
{
$range=$message;
} else {
$MC = imap_check($connection);
$range = "1:".$MC->Nmsgs;
}
$response = imap_fetch_overview($connection,$range);
foreach (
$response as $msg) $result[$msg->msgno]=(array)$msg;
return
$result;
}
function
pop3_retr($connection,$message)
{
return(
imap_fetchheader($connection,$message,FT_PREFETCHTEXT));
}
function
pop3_dele($connection,$message)
{
return(
imap_delete($connection,$message));
}
function
mail_parse_headers($headers)
{
$headers=preg_replace('/\r\n\s+/m', '',$headers);
preg_match_all('/([^: ]+): (.+?(?:\r\n\s(?:.+?))*)?\r\n/m', $headers, $matches);
foreach (
$matches[1] as $key =>$value) $result[$value]=$matches[2][$key];
return(
$result);
}
function
mail_mime_to_array($imap,$mid,$parse_headers=false)
{
$mail = imap_fetchstructure($imap,$mid);
$mail = mail_get_parts($imap,$mid,$mail,0);
if (
$parse_headers) $mail[0]["parsed"]=mail_parse_headers($mail[0]["data"]);
return(
$mail);
}
function
mail_get_parts($imap,$mid,$part,$prefix)
{
$attachments=array();
$attachments[$prefix]=mail_decode_part($imap,$mid,$part,$prefix);
if (isset(
$part->parts)) // multipart
{
$prefix = ($prefix == "0")?"":"$prefix.";
foreach (
$part->parts as $number=>$subpart)
$attachments=array_merge($attachments, mail_get_parts($imap,$mid,$subpart,$prefix.($number+1)));
}
return
$attachments;
}
function
mail_decode_part($connection,$message_number,$part,$prefix)
{
$attachment = array();

if(
$part->ifdparameters) {
foreach(
$part->dparameters as $object) {
$attachment[strtolower($object->attribute)]=$object->value;
if(
strtolower($object->attribute) == 'filename') {
$attachment['is_attachment'] = true;
$attachment['filename'] = $object->value;
}
}
}

if(
$part->ifparameters) {
foreach(
$part->parameters as $object) {
$attachment[strtolower($object->attribute)]=$object->value;
if(
strtolower($object->attribute) == 'name') {
$attachment['is_attachment'] = true;
$attachment['name'] = $object->value;
}
}
}

$attachment['data'] = imap_fetchbody($connection, $message_number, $prefix);
if(
$part->encoding == 3) { // 3 = BASE64
$attachment['data'] = base64_decode($attachment['data']);
}
elseif(
$part->encoding == 4) { // 4 = QUOTED-PRINTABLE
$attachment['data'] = quoted_printable_decode($attachment['data']);
}
return(
$attachment);
}
?>

[EDIT BY danbrown AT php DOT net: Contains a bugfix by "mn26826" on 09-JUN-2010, which fixed the erroneous reference to $imap as the parameter passed to imap_mailboxmsginfo() within the user function pop3_stat(). This was intended to be $connection.]

[EDIT BY visualmind AT php DOT net: Contains a bugfix by "elias-jobview" on 17-AUG-2010, which fixed the error in pop3_list function which didn't have: return $result]

[EDIT BY danbrown AT php DOT net: Contains a bugfix by "chrismeistre" on 09-SEP-2010, which fixed the erroneous reference to $mbox (should be $connection) in the pop3_list() function.]
up
-13
opto
12 years ago
it seems that in new PHP versions, $ssl must be specified even if no ssl is used - I got it working for POP3 only after adding /notls (honour some post I found somewhere)
Klaus
up
-34
dev at bluehead dot com dot br
12 years ago
Because I don't know regular expressions, I hacked the mail_parse_headers() to properly get the last line from the header string:

<?php
function mail_parse_headers($headers)
{

$headers=preg_replace('/\r\n\s+/m', '',$headers);
$headers=trim($headers)."\r\n"; /* a hack for the preg_match_all in the next line */
preg_match_all('/([^: ]+): (.+?(?:\r\n\s(?:.+?))*)?\r\n/m', $headers, $matches);
foreach (
$matches[1] as $key =>$value) $result[$value]=$matches[2][$key];
return(
$result);
}
?>
To Top