写了一个网站，反馈页面要用到 php 发邮件，无奈网站空间的 php 没有配置可用的邮件服务器，发现 php 也可通过
socket 裸发邮件。配一个可用的帐号，下面函数就可用了。
1 function send_mail( $to , $subject = ' 未标题 ' , $body ){
2 $loc_host = " smtp.126.com " ;
3 $smtp_acc = " youraccount " ;
4 $smtp_pass = " yourpassword " ;
5 $smtp_host = " smtp.126.com " ;
6 $from = " admin@126.com " ;
7
8 $headers = " Content-Type: text/plain; charset=\ " gb2312\ " \r\nContent-Transfer-Encoding:base64 " ;
9 $lb = " \r\n " ;
10 $hdr = explode ( $lb , $headers );
11 if ( $body ){
12 $bdy = preg_replace ( " /^\./ " , " .. " , explode ( $lb , $body ));
13 }
14
15 $smtp = array (
16 array ( " EHLO " . $loc_host . $lb , " 220, 250 " , " HELO error: " ) ,
17 array ( " AUTH LOGIN " . $lb , " 334 " , " AUTH error: " ) ,
18 array ( base64_encode ( $smtp_acc ) . $lb , " 334 " , " AUTHENTIFICATION error: " ) ,
19 array ( base64_encode ( $smtp_pass ) . $lb , " 235 " , " AUTHENTIFICATION error: " )
20 );
21
22 $smtp [] = array ( " MAIL FROM: " . $lb , " 250 " , " MAIL FROM error: " );
23 $smtp [] = array ( " RCPT TO: " . $lb , " 250 " , " RCPT TO error: " );
24 $smtp [] = array ( " DATA " . $lb , " 354 " , " DATA error: " );
25
26 $smtp [] = array ( " From: " . $from . $lb , "" , "" );
27 $smtp [] = array ( " To: " . $to . $lb , "" , "" );
28 $smtp [] = array ( " Subject: " . $subject . $lb , "" , "" );
29
30 foreach ( $hdr as $h ){
31 $smtp [] = array ( $h . $lb , "" , "" );
32 }
33
34 $smtp [] = array ( $lb , "" , "" );
35
36 if ( $bdy ){
37 foreach ( $bdy as $b ){
38 $smtp [] = array ( base64_encode ( $b . $lb ) . $lb , "" , "" );
39 }
40 }
41 $smtp [] = array ( " . " . $lb , " 250 " , " DATA(end) error: " );
42 $smtp [] = array ( " QUIT " . $lb , " 221 " , " QUIT error: " );
43
44 $fp = (@ fsockopen ( $smtp_host , 25 ));
45 if ( ! $fp ) echo " Error: Cannot connect to " . $smtp_host . "
" ;
46 while ( $result = @ fgets ( $fp , 1024 )){
47 if ( substr ( $result , 3 , 1 ) == " " ){ break ; }
48 }
49 $result_str = "" ;
50 foreach ( $smtp as $req ){
51 @ fputs ( $fp , $req [ 0 ]);
52 if ( $req [ 1 ]){
53 while ( $result = @ fgets ( $fp , 1024 )){
54 if ( substr ( $result , 3 , 1 ) == " " ){ break ; }
55 }
56 if ( ! strstr ( $req [ 1 ] , substr ( $result , 0 , 3 ))){
57 $result_str .= $reg [ 2 ] . $result . "
" ;
58 }
59 }
60 }
61 @ fclose ( $fp );
62 return $result_str ;
63 }
64
65
