function ValidaEmailFull (emailStr) { 
	var checkTLD=0; 
	var knownDomsPat=/ ^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/; 
	var emailPat=/^(.+)@(.+)$/; 
	var specialChars="\\(\\)><@,;:\\\\\\\"\\.\\[\\]"; 
	var validChars="\[^\\s" + specialChars + "\]"; 
	var quotedUser="(\"[^\"]*\")"; 
	var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/; 
	var atom=validChars + '+'; 
	var word="(" + atom + "|" + quotedUser + ")"; 
	var userPat=new RegExp("^" + word + "(\\." + word + ")*$"); 
	var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$"); 
	var matchArray=emailStr.match(emailPat); 
	
	if (matchArray==null) { 
		alert("La dirección email ingresada no es válida."); 
		return false; 
	} 
	
	var user=matchArray[1]; 
	var domain=matchArray[2]; 
	for (i=0; i<user.length; i++) { 
		if (user.charCodeAt(i)>127) { 
			alert("La dirección email contiene caracteres inválidos."); 
			return false; 
		} 
	} 
	
	for (i=0; i<domain.length; i++) { 
		if (domain.charCodeAt(i)>127) { 
			alert("El dominio en la dirección email contiene caracteres inválidos."); 
			return false; 
		} 
	} 
	
	if (user.match(userPat)==null) { 
		alert("La dirección email ingresada no es válida."); 
		return false; 
	} 
	
	var IPArray=domain.match(ipDomainPat); 
	if (IPArray!=null) { 
		for (var i=1;i<=4;i++) { 
			if (IPArray>255) { 
				alert("La dirección IP de destino no es válida."); 
				return false; 
			} 
		} 
		return true; 
	} 
	
	var atomPat=new RegExp("^" + atom + "$"); 
	var domArr=domain.split("."); 
	var len=domArr.length; 
	
	for (i=0;i<len;i++) { 
		if (domArr[i].search(atomPat)==-1) { 
			alert("El dominio en la dirección email no es válido."); 
			return false; 
		} 
	} 
	
	if (checkTLD && domArr[domArr.length-1].length!=2 && 
		domArr[domArr.length-1].search(knownDomsPat)==-1) { 
			alert("La extensión del nombre del dominio no es válida."); 
			return false; 
	} 
	
	if (len<2) { 
		alert("El dominio en la dirección email no ha sido encontrado."); 
		return false; 
	}

	return true;
}