Hi again,

Also how do I output on the php page the email
addresses it collects from the email body?

echo "Email was" . $email . " ";

appears to return nothing...

Thanks!





<?php
 
include("../db/connectionstart.php");

global $IP_RegExp_Match, $Host_RegExp_Match,
$Email_RegExp_Match;
$IP_RegExp_Match =
'\\[?[0-9]{1,3}(\\.[0-9]{1,3}){3}\\]?';
$Host_RegExp_Match = '(' . $IP_RegExp_Match .
    '|[0-9a-z]([-.]?[0-9a-z])*\\.[a-z][a-z]+)';
$Email_RegExp_Match = '[0-9a-z]([-_.+]?[0-9a-z])*(%'
. $Host_RegExp_Match .
    ')?@' . $Host_RegExp_Match;


$user = 'whatever';
$pass = 'whenever';

$MAILSERVER="{mail.yourpop3servergoeshere.com:110/pop3/notls}";
//Para POP3

$mbox = @imap_open ($MAILSERVER,$user,$pass) or die
("Sorry can't connect -
please check your settings");

$check = imap_mailboxmsginfo($mbox);
echo "Messages before delete: " . $check->Nmsgs .
"<br />\n";

$headers = imap_headers($mbox);

if ($headers == false) {
   echo "There are no messages to be deleted.<br
/>\n";
} else {
   while (list ($key, $val) = each ($headers)) {


   for ($i = 1; $i <= imap_num_msg($mbox); $i++)
{
   $header = imap_headerinfo($mbox, $i, 80, 80);
   $messageBody = imap_body($mbox, $i);

$messageBody = strip_tags($messageBody,
'<a><b><i><u>');
$messageBody = str_replace("\'", "", $messageBody);
$messageBody = str_replace("\\", "", $messageBody);
$messageBody = str_replace("\"", "", $messageBody);
$messageBody = str_replace("3D", "", $messageBody);

    global $color, $Email_RegExp_Match;
    $sbody     = $messageBody;
    $addresses = array();

    /* Find all the email addresses in the body */
    while(eregi($Email_RegExp_Match, $sbody, $regs))
{
        $addresses[$regs[0]] = $regs[0];
        $start = strpos($sbody, $regs[0]) +
strlen($regs[0]);
        $sbody = substr($sbody, $start);
    }
    /* Replace each email address with a compose URL
*/
    foreach ($addresses as $email) {
        $body = str_replace($email, $comp_uri,
$body);
   mysql_query ("DELETE FROM emaillist WHERE EMail =
'$email'");

};

imap_delete($mbox, 1);
$check = imap_mailboxmsginfo($mbox);
imap_expunge($mbox);
$check = imap_mailboxmsginfo($mbox);

    };

}};

$check = imap_mailboxmsginfo($mbox);
echo "Messages after delete: " . $check->Nmsgs .
"<br />\n";


imap_close($mbox);
?>



http://personals.yahoo.com.au - Yahoo! Personals
New people, new possibilities. FREE for a limited time.

-- 
PHP Database Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php

Reply via email to