PHP IMAP收QQ邮件，SMTP存入另外QQ邮箱
作用，将qq1收到邮件，用qq2的账号、以qq0的为发件人身份放到qq2的邮箱。
什么样做这样一个功能，一个朋友要求的，她不告诉我为什么，好吧
<?php
define('USER','xxx@qq.com');//qq1用户名
define('PWD','xxx');//qq1密码
define('USER_RECEIVER', 'xxx@qq.com');//转发目标
define('REV_INTERVAL', 30);//收取间隔，单位：秒,不要太小否则可能导致邮箱被封
define('DELETE', false);//设置为false表示不删除,设置为true,转发后删除
define('DEBUG', false);
while(true){
echo 'OPENING '.USER.'...'.chr(10);
$inbox = imap_open ("{imap.qq.com:993/imap2/ssl}INBOX", USER, PWD);
if(DEBUG)
echo 'There are '.imap_num_msg($inbox).' mails in the first page'.chr(10);
/*
$list = imap_list($inbox, "{imap.qq.com}", "*");
if (is_array($list)) {
echo 'Mailbox list: '.chr(10);
foreach ($list as $val) {
echo ' '.imap_utf7_decode($val) . "\n";
}
} else {
echo "imap_list failed: " . imap_last_error() . "\n";
}
*/
echo 'GETTING INFO...'.chr(10);
$chk =(array) imap_mailboxmsginfo($inbox);
echo '=>Mailbox: '.$chk['Mailbox'].chr(10);
echo ' Time: '.$chk['Date'].chr(10);
echo ' Size: '.$chk['Size'].chr(10);
echo ' Unread: '.$chk['Unread'].chr(10);
$mails = array();
while(true){
$list = imap_search($inbox, 'UNSEEN');
if(!$list) break;
$count = count($list);
if($count==0) break;
if(DEBUG)
var_dump($list);
foreach($list as $l) {
echo '-)DEAILING '.$l.'...'.chr(10);
$body = @imap_body( $inbox ,$l, 2);
if(!$body) continue;
$h = imap_headerinfo($inbox ,$l);
if(!$h) continue;
if(DEBUG)
{
echo $body;
}
$m = parseMail($body);
$m['id'] = $l;
$m['title'] = '';
if($h->Subject){
$m['title'] = $h->Subject;
}else if($h->subject){
$m['title'] = $h->subject;
}
if($m['title']){
$st = explode('?', $m['title']);
$m['title'] = base64_decode($st[3]);
}
$mails[] = $m;
if(DEBUG)
echo "\n\n>========= * ===========\n\n".print_r($m,1)."\n\n========== * ==========<\n\n";
echo '
/////////////////////////////////////////////////////
'.iconv('utf-8','gbk','新邮件').'
/////////////////////////////////////////////////////
';
$echo = ' -> NEW MAIL: '.chr(10).' => TITLE: '.trim($m['title']).chr(13).chr(10).' => CONTENT: '.trim($m['text']).chr(13).chr(10);
echo $echo;
file_put_contents('c:/mail.txt', $echo.$m['html']);
echo '
/////////////////////////////////////////////////////
';
if(confirm('Mail saved to c:/mail.txt.'."\n".'Whether to forward?(Y/N)'))
transferMail($m);
echo " ->SET ".$m['id']." TO BE READED\r\n";
$status = imap_setflag_full($inbox, $m['id'], "\\SEEN".(DELETE?' \Deleted':''));
if(DEBUG){
echo ' ->'.gettype($status) . "\n";
echo ' ->'.$status . "\n";
}
echo ' ->DONE'.chr(10);
}
echo ' ->Wait a moment'.chr(10);
sleep(rand(1,3));
break;
}
imap_close($inbox);
//imap_gc($inbox, IMAP_GC_ELT);
echo ' ->Wait '.REV_INTERVAL.'\'s'.chr(10);
$count = 0;
while(REV_INTERVAL>$count++){
if($count%10==0){
echo $count.chr(10);
/*if (!imap_ping($inbox)) {
echo 'RE OPENING '.USER.'...'.chr(10);
$inbox = imap_open ("{imap.qq.com:993/imap2/ssl}INBOX", USER, PWD);
}*/
}else
echo '.';
sleep(1);
}
}
function parseMail($s){
$sp = substr($s, 0 , strpos($s, "\r\n"));
$strs = explode($sp, $s);
if(DEBUG)
var_dump($strs);
//array_shift($strs);
$mail = array(
'header'=>'',
'title'=>'',
'body'=>''
);
foreach($strs as $k=>$p){
if(!$p) continue;
$tmp = explode("\r\n\r\n", $p, 2);
$headers = explode("\r\n",$tmp[0]);
$body = $tmp[1];
$base64_flag = false;
$rtn_header = '';
foreach($headers as $h){
$tmp = explode(':', $h, 2);
$type_h = $tmp[0];
$value_h = $tmp[1];
if($type_h=='Content-Type'){
if(DEBUG)
echo $h."\r\n";
$rtn_header.=$h."\r\n";
}else if($type_h=='Content-Transfer-Encoding'){
if(DEBUG)
echo $h."\r\n";
if(trim($value_h)=='base64')
$base64_flag = true;
else
echo $value_h.chr(10);
}
}
if($base64_flag){
if($k==1){
$mail['text'] = base64_decode($body);
$mail['header'] = $rtn_header;
}else if($k==2){
$mail['html'] = base64_decode($body);
$mail['header'] = $rtn_header;
}
if(DEBUG)
echo base64_decode($body);
}
if(DEBUG)
echo "\r\n";
}
return $mail;
}
function transferMail($m){
//通过往自己收件箱加邮件的方式来达到发送的目的
$smtpserver = "smtp.qq.com";//SMTP服务器
$smtpserverport = 25;//SMTP服务器端口
$smtpusermail = USER;//SMTP服务器的用户邮箱
$smtpemailto = USER_RECEIVER;//发送给谁
$smtpuser = USER;//SMTP服务器的用户帐号
$smtppass = PWD;//SMTP服务器的用户密码
$mailsubject = replace($m['title']);//邮件主题
$mailbody = replace(isset($m['html'])?$m['html']:$m['text']);//邮件内容
$mailtype = isset($m['html'])?'HTML':'TXT';//邮件格式（HTML/TXT）,TXT为文本邮件
##########################################
$smtp = new smtp($smtpserver,$smtpserverport,true,$smtpuser,$smtppass);//这里面的一个true是表示使用身份验证,否则不使用身份验证.
$smtp->debug = false;//是否显示发送的调试信息
$smtp->sendmail($smtpemailto, $smtpusermail, $mailsubject, $mailbody, $mailtype);
}
function confirm($str="Input "){
while(true){
echo $str.": \r\n";
$str = 'Please type Y or N';
$s=trim(strtolower(fgets(STDIN)));
$str .= ', not '.$s;
if($s=='y'||$s=='n')
break;
}
return $s=='y';
}
function replace($txt){
$txt = preg_replace("/@\w+/",'', $txt);
$pos = strpos($txt, '原始邮件');
if($pos!==false)
$txt = substr($txt,0, $pos);
return $txt;
}
class smtp
{
/* Public Variables */
var $smtp_port;
var $time_out;
var $host_name;
var $log_file;
var $relay_host;
var $debug;
var $auth;
var $user;
var $pass;
/* Private Variables */
var $sock;
/* Constractor */
function smtp($relay_host = "", $smtp_port = 25,$auth = false,$user,$pass)
{
$this->debug = FALSE;
$this->smtp_port = $smtp_port;
$this->relay_host = $relay_host;
$this->time_out = 30; //is used in fsockopen()
$this->auth = $auth;//auth
$this->user = $user;
$this->pass = $pass;
$this->host_name = "localhost"; //is used in HELO command
$this->log_file = "";
$this->sock = FALSE;
}
/* Main Function */
function sendmail($to, $from, $subject = "", $body = "", $mailtype, $cc = "", $bcc = "", $additional_headers = "")
{
$mail_from = $this->get_address($this->strip_comment($from));
$body = ereg_replace("(^|(\r\n))(\.)", "\1.\3", $body);
$header .= "MIME-Version:1.0\r\n";
if($mailtype=="HTML")
{
$header .= "Content-Type:text/html\r\n";
}
$header .= "To: ".$to."\r\n";
if ($cc != "")
{
$header .= "Cc: ".$cc."\r\n";
}
$header .= "From: $from<".$from.">\r\n";
$header .= "Subject: ".$subject."\r\n";
$header .= $additional_headers;
$header .= "Date: ".date("r")."\r\n";
$header .= "X-Mailer:By Redhat (PHP/".phpversion().")\r\n";
list($msec, $sec) = explode(" ", microtime());
$header .= "Message-ID: <".date("YmdHis", $sec).".".($msec*1000000).".".$mail_from.">\r\n";
$TO = explode(",", $this->strip_comment($to));
if ($cc != "")
{
$TO = array_merge($TO, explode(",", $this->strip_comment($cc)));
}
if ($bcc != "")
{
$TO = array_merge($TO, explode(",", $this->strip_comment($bcc)));
}
$sent = TRUE;
foreach ($TO as $rcpt_to)
{
$rcpt_to = $this->get_address($rcpt_to);
if (!$this->smtp_sockopen($rcpt_to))
{
$this->log_write("Error: Cannot send email to ".$rcpt_to."\n");
$sent = FALSE;
continue;
}
if ($this->smtp_send($this->host_name, $mail_from, $rcpt_to, $header, $body))
{
$this->log_write("E-mail has been sent to <".$rcpt_to.">\n");
}
else
{
$this->log_write("Error: Cannot send email to <".$rcpt_to.">\n");
$sent = FALSE;
}
fclose($this->sock);
$this->log_write("Disconnected from remote host\n");
}
return $sent;
}
/* Private Functions */
function smtp_send($helo, $from, $to, $header, $body = "")
{
if (!$this->smtp_putcmd("HELO", $helo))
{
return $this->smtp_error("sending HELO command");
}
#auth
if($this->auth)
{
if (!$this->smtp_putcmd("AUTH LOGIN", base64_encode($this->user)))
{
return $this->smtp_error("sending HELO command");
}
if (!$this->smtp_putcmd("", base64_encode($this->pass)))
{
return $this->smtp_error("sending HELO command");
}
}
if (!$this->smtp_putcmd("MAIL", "FROM:<".$from.">"))
{
return $this->smtp_error("sending MAIL FROM command");
}
if (!$this->smtp_putcmd("RCPT", "TO:<".$to.">"))
{
return $this->smtp_error("sending RCPT TO command");
}
if (!$this->smtp_putcmd("DATA"))
{
return $this->smtp_error("sending DATA command");
}
if (!$this->smtp_message($header, $body))
{
return $this->smtp_error("sending message");
}
if (!$this->smtp_eom())
{
return $this->smtp_error("sending <CR><LF>.<CR><LF> [EOM]");
}
if (!$this->smtp_putcmd("QUIT"))
{
return $this->smtp_error("sending QUIT command");
}
return TRUE;
}
function smtp_sockopen($address)
{
if ($this->relay_host == "")
{
return $this->smtp_sockopen_mx($address);
}
else
{
return $this->smtp_sockopen_relay();
}
}
function smtp_sockopen_relay()
{
$this->log_write("Trying to ".$this->relay_host.":".$this->smtp_port."\n");
$this->sock = @fsockopen($this->relay_host, $this->smtp_port, $errno, $errstr, $this->time_out);
if (!($this->sock && $this->smtp_ok()))
{
$this->log_write("Error: Cannot connenct to relay host ".$this->relay_host."\n");
$this->log_write("Error: ".$errstr." (".$errno.")\n");
return FALSE;
}
$this->log_write("Connected to relay host ".$this->relay_host."\n");
return TRUE;;
}
function smtp_sockopen_mx($address)
{
$domain = ereg_replace("^.+@([^@]+)$", "\1", $address);
if (!@getmxrr($domain, $MXHOSTS))
{
$this->log_write("Error: Cannot resolve MX \"".$domain."\"\n");
return FALSE;
}
foreach ($MXHOSTS as $host)
{
$this->log_write("Trying to ".$host.":".$this->smtp_port."\n");
$this->sock = @fsockopen($host, $this->smtp_port, $errno, $errstr, $this->time_out);
if (!($this->sock && $this->smtp_ok()))
{
$this->log_write("Warning: Cannot connect to mx host ".$host."\n");
$this->log_write("Error: ".$errstr." (".$errno.")\n");
continue;
}
$this->log_write("Connected to mx host ".$host."\n");
return TRUE;
}
$this->log_write("Error: Cannot connect to any mx hosts (".implode(", ", $MXHOSTS).")\n");
return FALSE;
}
function smtp_message($header, $body)
{
fputs($this->sock, $header."\r\n".$body);
$this->smtp_debug("> ".str_replace("\r\n", "\n"."> ", $header."\n> ".$body."\n> "));
return TRUE;
}
function smtp_eom()
{
fputs($this->sock, "\r\n.\r\n");
$this->smtp_debug(". [EOM]\n");
return $this->smtp_ok();
}
function smtp_ok()
{
$response = str_replace("\r\n", "", fgets($this->sock, 512));
$this->smtp_debug($response."\n");
if (!ereg("^[23]", $response))
{
fputs($this->sock, "QUIT\r\n");
fgets($this->sock, 512);
$this->log_write("Error: Remote host returned \"".$response."\"\n");
return FALSE;
}
return TRUE;
}
function smtp_putcmd($cmd, $arg = "")
{
if ($arg != "")
{
if($cmd=="")
{
$cmd = $arg;
}
else
{
$cmd = $cmd." ".$arg;
}
}
fputs($this->sock, $cmd."\r\n");
$this->smtp_debug("> ".$cmd."\n");
return $this->smtp_ok();
}
function smtp_error($string)
{
$this->log_write("Error: Error occurred while ".$string.".\n");
return FALSE;
}
function log_write($message)
{
$this->smtp_debug($message);
if ($this->log_file == "")
{
return TRUE;
}
$message = date("M d H:i:s ").get_current_user()."[".getmypid()."]: ".$message;
if (!@file_exists($this->log_file) || !($fp = @fopen($this->log_file, "a")))
{
$this->smtp_debug("Warning: Cannot open log file \"".$this->log_file."\"\n");
return FALSE;;
}
flock($fp, LOCK_EX);
fputs($fp, $message);
fclose($fp);
return TRUE;
}
function strip_comment($address)
{
$comment = "\([^()]*\)";
while (ereg($comment, $address))
{
$address = ereg_replace($comment, "", $address);
}
return $address;
}
function get_address($address)
{
$address = ereg_replace("([ \t\r\n])+", "", $address);
$address = ereg_replace("^.*<(.+)>.*$", "\1", $address);
return $address;
}
function smtp_debug($message)
{
if ($this->debug)
{
echo $message;
}
}
}
- 上一篇 »Java线程详解（深度好文）
- 下一篇 »仿QQ聊天软件及源码java版