VERIFICATION D'UN MAIL
cs_Bud
Messages postés
224
Date d'inscription
vendredi 14 septembre 2001
Statut
Membre
Dernière intervention
14 juillet 2006
-
4 août 2003 à 17:13
ju_ba Messages postés 1 Date d'inscription samedi 1 avril 2006 Statut Membre Dernière intervention 1 avril 2006 - 1 avril 2006 à 17:17
ju_ba Messages postés 1 Date d'inscription samedi 1 avril 2006 Statut Membre Dernière intervention 1 avril 2006 - 1 avril 2006 à 17:17
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/9073-verification-d-un-mail
https://codes-sources.commentcamarche.net/source/9073-verification-d-un-mail
1 avril 2006 à 17:17
^[a-zA-Z0-9._-]+@[a-zA-Z0-9.-]{2,}[.][a-zA-Z]{2,4}
mais en le testant j'ai remarqué que le l'extension du nom de domaine pouvait contenir un nombre de caractères important( >4). J'y ai rajouté le caractère $ à la fin, comme ceci
^[a-zA-Z0-9._-]+@[a-zA-Z0-9.-]{2,}[.][a-zA-Z]{2,4}$
et cela fonctionne
5 août 2003 à 19:13
Ce zip contient autre chose je pense (apparement une gestion de newsletter), et il vaudrait mieu plutot poser ce zip pour le projet entier.
De plus, pour la description donnée dans l'entête, l'utilisation des RegEx est nettement plus performante et simple (comme expliqué
dans le message ci-dessus).
Il serait bon de revoir totalement ton post et même ta source dans ce cas.
F___
PS: Merci de supprimer ta pub au bas de ton post
4 août 2003 à 17:13
Function verifEmail(email)
Dim regEx
Set regEx = New RegExp
regEx.Global = True
regEx.Pattern = "^[a-zA-Z0-9._-]+@[a-zA-Z0-9.-]{2,}[.][a-zA-Z]{2,4}"
notag = regEx.test(email)
verifEmail=noTag
End Function