// Procédures globales du projet
function PROCEDURESGLOBALESDELDISOFTWARENAVIGATEUR_TESTEMAIL(VEMAIL_C){{var VINDICE=0;var VPHASE1=false;var VPHASE2=false;var VPHASE3=false;var VBOOLERREUR=false;var VINDICEPHASE=0;for(VINDICE=1;VINDICE<=VEMAIL_C.length;VINDICE++){
switch((VEMAIL_C + "").substr(VINDICE-1, 1)){case "@":{if((!VPHASE1)){if((VINDICE>1)){VPHASE1=true;VINDICEPHASE=VINDICE}}else {;VBOOLERREUR=true;break}}break;case ".":{if(VPHASE1){if((VINDICE>=(VINDICEPHASE+2))){VPHASE2=true;VINDICEPHASE=VINDICE}
else {;VBOOLERREUR=true;break}}}break;default:{if((VPHASE1&&VPHASE2)){if((VINDICE>=(VINDICEPHASE+2))){VPHASE3=true;break}}}break}}if((VBOOLERREUR||(!((VPHASE1&&VPHASE2)&&VPHASE3)))){
alert(clWDEncode.sEncodeCharset(unescape("Votre adresse e-mail n\'est pas valide !")));return(false)}return(true)}}