// Procédures globales du projet
function _EC(c,p,s,n){if (!(n == 1)){var d=-s.length;for(var i=0;i<p-1;i++){d=c.indexOf(s,d+s.length);if(d==-1)return(p==1?c:"\b")}var f=c.indexOf(s,d+s.length);if(f==-1)f=c.length;return c.substring(d+s.length,f)}else{var d = c.length
for(var i=0;i<p-1;i++){d = c.lastIndexOf(s, d - 1);if (d == -1)	return (p==1?c:"\b")}var f = c.lastIndexOf(s, d - 1);if (f == -1)return c.substr(0, d);return c.substr(f + 1, d - f - 1)}}
function _SAE(c,o){var d=0;c += "";var f=c.length-1;if(o&1)while(c.charAt(d)==" ")d++;if(o&2)while(c.charAt(f)==" ")f--;if (f < d) f= d;return c.substring(d,f+1)}
function PROCEDURESGLOBALESDESITEIORTNAVIGATEUR_BVERIFEMAIL(VPSEMAIL, VPSLISTEEX){{var VSEMAIL=VPSEMAIL.toUpperCase();if(((VSEMAIL.indexOf("@")+1)==0)){return(false)}var VSSUFFIXE=_EC(VSEMAIL,2,"@",0);if(((VSSUFFIXE.indexOf(".")+1)==0)){
return(false)}var VNDEBUT=0;var VNPOS=0;while(true){VNDEBUT=(VSSUFFIXE.indexOf(".",(VNDEBUT+1)-1)+1);if((VNDEBUT==0)){break}VNPOS=VNDEBUT}VSSUFFIXE=(VSSUFFIXE + "").substr((VNPOS+1)-1);if((_SAE(VSSUFFIXE,3).toUpperCase()==_SAE("",3).toUpperCase())){
return(false)}VSSUFFIXE=(("."+_SAE(VSSUFFIXE,3))+"|");if(((VPSLISTEEX.indexOf(VSSUFFIXE)+1)==0)){return(false)}return(true)}}