function emailCheck (par){
if(!VR4) return true;
var p1=/^(.+)@(.+)$/
var s1="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]"
var s2="\[^\\s" + s1 + "\]"
var s3="(\"[^\"]*\")"
var s4=s2 + '+'
var s5="(" + s4 + "|" + s3 + ")"
var p2=new RegExp("^" + s5 + "(\\." + s5 + ")*$")
var p3=new RegExp("^" + s4 + "(\\." + s4 +")*$")
var ms=par.match(p1)
if (ms==null) { return false; };
var us=ms[1]
var dn=ms[2]
if (us.match(p2)==null) { return false; };
var da=dn.match(p3)
if (da==null) { return false; };
var p4=new RegExp(s4,"g")
var dm=dn.match(p4)
var len=dm.length
if (dm[len-1].length<2 || dm[len-1].length>3) { return false;};
if (len<2) { return false; };
return true;
}