VERIFICATION D'UN MAIL

Signaler
Messages postés
224
Date d'inscription
vendredi 14 septembre 2001
Statut
Membre
Dernière intervention
14 juillet 2006
-
Messages postés
1
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
1 avril 2006
-
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

Messages postés
1
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
1 avril 2006

Merci, j'ai utilisé le pattern proposé:

^[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
Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Membre
Dernière intervention
11 décembre 2013
6
Je ne comprends pas très bien le fait de mettre un ZIP complêt pour juste une fonction de test.
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
Messages postés
224
Date d'inscription
vendredi 14 septembre 2001
Statut
Membre
Dernière intervention
14 juillet 2006

Une fonction qui fait ça vachement bien aussi:
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