使用php直接打開socket端口進行發(fā)信的小程序特點是使用smtp認證，能夠更好的使用滿足一般網(wǎng)友建站需要。

整個源碼附在本文中，同樣內(nèi)容可到下列地址下載。轉(zhuǎn)載請注明出處。

http://www.mypchelp.cn/download/phpsendmail.rar

<?/******************************************//*; Php webmail sender;*//*www.ebugs.org *//* Copyright 富翁 in im286.com 2005.03.07 *//*轉(zhuǎn)載請注明出處;;;;*//******************************************/

//使用前請首先按照提示進行配置發(fā)信認證的用戶名、密碼以及smtp服務(wù)器地址、發(fā)件人信箱等。//注意將#替換成#，落伍(www.im286.com）負翁版權(quán)所有，可隨意使用，但保留版權(quán)信息

//例子echo send_mail('fuweng#im286.com','發(fā)信標(biāo)題','發(fā)信內(nèi)容');

function send_mail($to, $subject = 'No subject', $body) { $loc_host = 'im286';;//發(fā)信計算機名，可隨意 $smtp_acc = 'fuweng#im286.com'; //Smtp認證的用戶名，類似[email protected]，或者fuweng $smtp_pass='password'//Smtp認證的密碼，一般等同pop3密碼 $smtp_host='smtp.im286.com';;//SMTP服務(wù)器地址，類似 smtp.tom.com $from='fuweng#im286.com';;;;;//發(fā)信人Email地址，你的發(fā)信信箱地址 $headers = 'Content-Type: text/plain; charset='gb2312'rnContent-Transfer-Encoding: base64'; $lb='rn';;//linebreak $hdr = explode($lb,$headers);;;//解析后的hdr if($body) {$bdy = preg_replace('/^./','..',explode($lb,$body));}//解析后的Body

$smtp = array( //1、EHLO，期待返回220或者250 array('EHLO '.$loc_host.$lb,'220,250','HELO error: '), //2、發(fā)送Auth Login，期待返回334 array('AUTH LOGIN'.$lb,'334','AUTH error:'), //3、發(fā)送經(jīng)過Base64編碼的用戶名，期待返回334 array(base64_encode($smtp_acc).$lb,'334','AUTHENTIFICATION error : '), //4、發(fā)送經(jīng)過Base64編碼的密碼，期待返回235 array(base64_encode($smtp_pass).$lb,'235','AUTHENTIFICATION error : ')); //5、發(fā)送Mail From，期待返回250 $smtp[] = array('MAIL FROM: <'.$from.'>'.$lb,'250','MAIL FROM error: '); //6、發(fā)送Rcpt To。期待返回250 $smtp[] = array('RCPT TO: <'.$to.'>'.$lb,'250','RCPT TO error: '); //7、發(fā)送DATA，期待返回354 $smtp[] = array('DATA'.$lb,'354','DATA error: '); //8.0、發(fā)送From $smtp[] = array('From: '.$from.$lb,'',''); //8.2、發(fā)送To $smtp[] = array('To: '.$to.$lb,'',''); //8.1、發(fā)送標(biāo)題 $smtp[] = array('Subject: '.$subject.$lb,'',''); //8.3、發(fā)送其他Header內(nèi)容 foreach($hdr as $h) {$smtp[] = array($h.$lb,'','');} //8.4、發(fā)送一個空行，結(jié)束Header發(fā)送 $smtp[] = array($lb,'',''); //8.5、發(fā)送信件主體 if($bdy) {foreach($bdy as $b) {$smtp[] = array(base64_encode($b.$lb).$lb,'','');}} //9、發(fā)送“.”表示信件結(jié)束，期待返回250 $smtp[] = array('.'.$lb,'250','DATA(end)error: '); //10、發(fā)送Quit，退出，期待返回221 $smtp[] = array('QUIT'.$lb,'221','QUIT error: ');

//打開smtp服務(wù)器端口 $fp = @fsockopen($smtp_host, 25); if (!$fp) echo '<b>Error:</b> Cannot conect to '.$smtp_host.'<br>'; while($result = @fgets($fp, 1024)){if(substr($result,3,1) == ' ') { break; }} $result_str=''; //發(fā)送smtp數(shù)組中的命令/數(shù)據(jù) foreach($smtp as $req){ //發(fā)送信息 @fputs($fp, $req[0]); //如果需要接收服務(wù)器返回信息，則 if($req[1]){ //接收信息 while($result = @fgets($fp, 1024)){ if(substr($result,3,1) == ' ') { break; } }; if (!strstr($req[1],substr($result,0,3))){ $result_str.=$req[2].$result.'<br>'; } } } //關(guān)閉連接 @fclose($fp); return $result_str;}?>;