word document not displying in email

[mangel.murti]

hello all,
this code working good but problem is here when i am checking mail and see word document it's not displaying ....

$fileatt = "resume/$fileName"; // Path to the file 
$fileatt_type = "application/msword"; // File Type 
$fileatt_name = $fileName; // Filename that will be used for the file as the attachment 

$email_from = $email; // Who the email is from 
$email_subject = "Call center Process-".$currv.""; // The Subject of the email 
$email_message = "Name:&nbsp;".$name."<br>Gender&nbsp;".$gen."<br>Email:&nbsp;".$email."<br>Address:&nbsp;".$address."<br>Contact Number&nbsp;".$cno."<br>Mobile Number:&nbsp;".$mno."<br>State:&nbsp;".$sts."";
$email_message .= ""; // Message that the email has in it 


$email_to = "[e-mail]"; // Who the email is to 
$headers = "From: ".$email_from; 
$file = fopen($fileatt,'rb'); 
$data = fread($file,5000); 
fclose($file); 

$semi_rand = md5(time()); 
$mime_boundary = "==Multipart_Boundary_x{$semi_rand}x"; 

$headers .= "\nMIME-Version: 1.0\n" . 
"Content-Type: multipart/mixed;\n" . 
" boundary=\"{$mime_boundary}\""; 

$email_message .= "This is a multi-part message in MIME format.\n\n" . 
"--{$mime_boundary}\n" . 
"Content-Type:text/html; charset=\"iso-8859-1\"\n" . 
"Content-Transfer-Encoding: 7bit\n\n" . 
$email_message .= "\n\n"; 

$data = chunk_split(base64_encode($data)); 

$email_message .= "--{$mime_boundary}\n" . 
"Content-Type: {$fileatt_type};\n" . 
" name=\"{$fileatt_name}\"\n" . 
"Content-Disposition: attachment;\n" . 
" filename=\"{$fileatt_name}\"\n" . 
"Content-Transfer-Encoding: base64\n\n" . 
$data .= "\n\n" . 
"--{$mime_boundary}--\n"; 

$ok = @mail($email_to, $email_subject, $email_message, $headers); 

if($ok) { 
echo "ok";

} else { 
die("Sorry but the email could not be sent. Please go back and try again!"); 
}