Voici une procédure de contrôle de l'adresse email Code (Windev): PROCEDURE VerificationEmail(LeMail) VF est un booléen = Vrai SI Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(LeMail) <> "" ALORS SELON Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(LeMail) CAS emailAdresseValide // VF est déjà VRAI, on ne fait rien... CAS emailAdresseSyntaxeIncorrecte Toast("L'adresse est syntaxiquement fausse.") VF = Faux CAS emailAdresseRefusée Toast("L'adresse a été refusée par le serveur de mails." + ... "ErreurInfo permet d'obtenir la cause du refus.") VF = Faux CAS emailAdresseErreur Toast("Une erreur s'est produite pendant la vérification. " + ... "ErreurInfo permet d'obtenir le détail de l'erreur.") VF = Faux AUTRE CAS Toast("L'adresse email ne semble pas valide.....") VF = Faux FIN SI Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(LeMail,"'") > 0 ALORS VF = Faux SI Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(LeMail,"@") <> 1 ALORS VF = Faux SI Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(LeMail,".") = 0 ALORS VF = Faux FIN RENVOYER VF
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens! Voici une procédure de contrôle de l'adresse email Code (Windev): PROCEDURE VerificationEmail(LeMail) VF est un booléen = Vrai SI Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(LeMail) <> "" ALORS SELON Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(LeMail) CAS emailAdresseValide // VF est déjà VRAI, on ne fait rien... CAS emailAdresseSyntaxeIncorrecte Toast("L'adresse est syntaxiquement fausse.") VF = Faux CAS emailAdresseRefusée Toast("L'adresse a été refusée par le serveur de mails." + ... "ErreurInfo permet d'obtenir la cause du refus.") VF = Faux CAS emailAdresseErreur Toast("Une erreur s'est produite pendant la vérification. " + ... "ErreurInfo permet d'obtenir le détail de l'erreur.") VF = Faux AUTRE CAS Toast("L'adresse email ne semble pas valide.....") VF = Faux FIN SI Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(LeMail,"'") > 0 ALORS VF = Faux SI Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(LeMail,"@") <> 1 ALORS VF = Faux SI Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(LeMail,".") = 0 ALORS VF = Faux FIN RENVOYER VF Cliquez pour agrandir...
Juste pour info, la fonction est inutile (selon moi bien sur).... Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens! Bon dev
