1. <?php
3. if(strtoupper(substr(PHP_OS, 0, 3) == 'WIN')){
4.     // getmxrr() - fix for windows users
5.     function getmxrr($hostname, &$mxhosts){
6.         $mxhosts = array();
7.         exec('nslookup -type=mx '.$hostname, $result_arr);
8.         foreach($result_arr as $line){
9.             if(preg_match("/.*mail exchanger = (.*)/", $line, $matches)) $mxhosts[] = $matches[1];
10.         }
11.         return (count($mxhosts) > 0);
12.     }
13.     // usleep() - fix for php5 windows users
14.     if(version_compare(phpversion(), "5.0.0", ">=")){
15.         function usleep($usecs){
16.             $temp = gettimeofday();
17.             $start = (int)$temp["usec"];
18.             while(true){
19.                 $temp = gettimeofday();
20.                 $stop = (int)$temp["usec"];
21.                 if(($stop-$start) >= $usecs) break;
22.             }
23.         }
24.     }
25. }
26.  
27. /** 
28.  * Return an array with tow values: boolean and string
29.  * 
30.  * @author    Laurentiu Tanase <expertphp@yahoo.com> 
31.  * @version   2.3 
32.  * @param     string  $to         To e-mail address 
33.  * @param     string  $subject    Mail Subject 
34.  * @param     string  $message    Message ( Mixed ) 
35.  * @param     string  $from       From e-mail address 
36.  * @param     string  $header     Additional headers 
37.  * @param     integer $timeout    Time out connection 
38.  */
39.  
40. function smtp_mail($to, $subject, $message, $from, $header = false, $timeout = 30){
41.  
42.     $exp_to = explode("@", $to);
43.     getmxrr($exp_to[1], $mxhost);
44.     $iparr = array();
45.  
46.     foreach($mxhost as $hostname){
47.         $iphost = gethostbyname($hostname);
48.         if($hostname != $iphost && $hostname != $exp_to[1]) $iparr[] = $iphost;
49.     }
50.  
51.     if(count($iparr) > 0){
52.  
53.         $ret = array(false, "Can not contact MX host !");
54.         foreach($iparr as $ipaddr){
55.  
56.             if($connect = @fsockopen($ipaddr, 25, $err_num, $err_msg, $timeout)){
57.  
58.                 $set = true;
59.  
60.                 $rcv0 = fgets($connect, 1024);
61.                 if(substr($rcv0, 0, 3) != "220"){
62.                     fclose($connect);
63.                     $ret = array(false, "Response 0 error: ".$rcv0);
64.                     $set = false;
65.                 }
66.                 
67.                 if($set){
68.                     $exp_from = explode("@", $from);
69.                     fputs($connect, "HELO ".$exp_from[1]."\r\n");
70.                     $rcv1 = fgets($connect, 1024);
71.                     if(substr($rcv1, 0, 3) != "250"){
72.                         fclose($connect);
73.                         $ret = array(false, "Response 1 error: ".$rcv1);
74.                         $set = false;
75.                     }
76.                 }
77.                 
78.                 if($set){
79.                     fputs($connect, "MAIL FROM:<".$from.">\r\n");
80.                     $rcv2 = fgets($connect, 1024);
81.                     if(substr($rcv2, 0, 3) != "250"){
82.                         fclose($connect);
83.                         $ret = array(false, "Response 2 error: ".$rcv2);
84.                         $set = false;
85.                     }
86.                 }
87.  
88.                 if($set){
89.                     fputs($connect, "RCPT TO:<".$to.">\r\n");
90.                     $rcv3 = fgets($connect, 1024);
91.                     if(substr($rcv3, 0, 3) != "250"){
92.                         fclose($connect);
93.                         $ret = array(false, "Response 3 error: ".$rcv3);
94.                         $set = false;
95.                     }
96.                 }
97.                 
98.                 if($set){
99.                     fputs($connect, "DATA\r\n");
100.                     $rcv4 = fgets($connect, 1024);
101.                     if(substr($rcv4, 0, 3) != "354"){
102.                         fclose($connect);
103.                         $ret = array(false, "Response 4 error: ".$rcv4);
104.                         $set = false;
105.                     }
106.                 }
107.                 
108.                 if($set){
109.                     if(!$header){
110.                         $header = "From: \"".$exp_from[0]."\" <".$from.">\r\n".
111.                             "To: \"".$exp_to[0]."\" <".$to.">\r\n".
112.                             "Date: ".date("r")."\r\n".
113.                             "Subject: ".$subject."\r\n";
114.                     }
115.  
116.                     $rep = array(".\r\n", ".\n", ".\r");
117.                     fputs($connect, $header."\r\n".str_replace($rep, ". \r\n", $message)." \r\n");
118.                     fputs($connect, ".\r\n");
119.                     $rcv5 = fgets($connect, 1024);
120.                     if(substr($rcv5, 0, 3) != "250"){
121.                         fclose($connect);
122.                         $ret = array(false, "Response 5 error: ".$rcv5);
123.                         $set = false;
124.                     }
125.                     
126.                     fputs($connect, "QUIT\r\n");
127.                     usleep(1);
128.                     $rcv6 = fgets($connect, 1024);
129.                     usleep(1);
130.                     fclose($connect);
131.                 }
132.                 
133.                 if($set){
134.                     $ret = array(true, "Response 6 success: ".$rcv5." | ".$rcv6);
135.                     break;
136.                 }
137.  
138.             }
139.         }
140.  
141.         return $ret;
142.  
143.     }else return array(false, "Can not find MX zone !");
144.  
145. } // End smtp_mail() -----------------------------
147. ?>