local($wwAppel,$wwFct,$wwFrom,$wwFromId,$wwEmail,@wwIn); 
local($wwIdent,$wwAuth,$wwMsg); 
sub Execer { 
 local($i,$Out); 
 $Out = '';
 local $Noms = ''; 
 local($k,$nom); 
for($nom=&getRange("getIdent",$wwFrom,"1000","");$nom ne "-";$nom=&getRange("nextIdent",$wwFrom,$nom,"")) {
 $Noms = "";
 if (($i=&fromEmail($wwFrom,$nom,$wwEmail,\$Noms))!=0) {last};
 if ($Noms eq "") {next};
 if (($i=&idtLireTout($wwFrom,$nom,$Noms,\$Out))!=0) {return 'Erreur identification: '.$i.''};
}; if ($Out eq "") {return 'Erreur identification: '.$i.''};
 if (($i=&toClient(\$Out))!=0) {return 'Erreur export: '.$i.''};
 return '';
}

var wwAppel,wwFct,wwFrom,wwFromId,wwEmail,wwIn; 
var wwIdent,wwAuth,wwMsg; 
function Execer() { 
 var i,Out; 
 Out = Array('');
 var Noms = Array(''); 
 var k,nom; 
for(nom=getRange("getIdent",wwFrom,"1000","");nom!="-";nom=getRange("nextIdent",wwFrom,nom,"")) {
 Noms[0] = "";
 if ((i=fromEmail(wwFrom,nom,wwEmail,Noms))!=0) {break};
 if (Noms[0]=="") {continue};
 if ((i=idtLireTout(wwFrom,nom,Noms[0],Out))!=0) {return 'Erreur identification: '+i.toString()};
}; if (Out[0]=="") {return 'Erreur identification: '+i.toString()};
 if ((i=toClient(Out))!=0) {return 'Erreur export: '+i.toString()};
 return '';
}