function caracter(){
var cadena,i,n,correcto
cadena=miform.sucorreo.value

  for (i=0;i<=cadena.length-1;i++){
    	 n=cadena.charAt(i)
	if(n==" "||n=="ñ"||n=="Ñ"){
	correcto="no"
	break
	}	 
	 if(n=="@"||n=="."||n=="_"||isNaN(n)==false||(n>="a"&&n<="z")||(n>="A"&&n<="Z")){
	 correcto="si"
	 }else{
	 correcto="no"
	 break
	  }
	}
	if(correcto=="no"){
	return false
	}else{
	return true
     }
  }
  <!-- *****************@@    *********************************************** -->
function arroba(){
var direccion,i,cont
cont=0
direccion=miform.sucorreo.value
  for (i=0;i<=direccion.length-1;i++){
     if(direccion.charAt(i)=="@"){
     cont++
	 }
   }
 if(cont==1){return true
 }else{
  return false 
  }
}
 <!--  *************@xxx.xxx---  @xxxx.xx************************************************ -->
 function extension(){
 var cadena
 cadena=miform.sucorreo.value
 if(cadena.charAt(cadena.length-4)=="."||cadena.charAt(cadena.length-3)=="."){
 return true
  }else{
  return false
  }
 }
 <!-- *****.@@.@.********************************************************* -->
function puntos_seguidos(){
 var cadena,i
 cadena=miform.sucorreo.value
 for(i=0;i<=cadena.length-1;i++){
   if(cadena.charAt(i)=="."){
      if(cadena.charAt(i+1)=="."||cadena.charAt(i+1)=="@"||cadena.charAt(i-1)=="@"){
	  return false
	  }
	}
  }
 return true
} 

<!-- ******************* 1ª carter sea una letras ********************** -->
function letra_uno(){
var cadena,primera
cadena=miform.sucorreo.value
primera=cadena.charAt(0)
       
   if((primera>="a"&&primera<="z")||(primera>="A"&&primera<="Z")){
	 return true
	 }else{
	 return false
	}
  } 
<!-- ***********************izquierda  @  4 caracteres*************************************************** -->
function cuatro(){
var cadena,pasarroba,usuario
cadena=miform.sucorreo.value
pasarroba=cadena.indexOf("@")
usuario=cadena.substring(0,pasarroba)

if(usuario.length>=3){
return true
  }else{
  return false
  }
 } 


  <!-- ******************************************************************** -->
 
 /* function validar(){
 if (caracter()&&arroba()&&extension()&&puntos_seguidos()&&letra_uno()&&cuatro()){
 alert("valido")
   }else{
   alert("no valido")
   }
}
*/