VÉRIFIER LA VALIDITÉ D'UNE ADRESSE E-MAIL. (TRÈS SIMPLE)
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019
-
7 mars 2004 à 15:59
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
11 mai 2004 à 19:10
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Public Function isEmail(ByVal _Value As String) As Boolean
Dim objIntPattern As New _
System.Text.RegularExpressions.Regex("^[A-Za-z0-9](([_\.\-]?[a-zA-Z0-9]+)*)@([A-Za-z0-9]+)(([\.\-]?[a-zA-Z0-9]+)*)\.([A-Za-z]{2,})$")
Return objIntPattern.IsMatch(_Value)
End Function
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 9 mars 2004 à 05:57
Oui.... ce genre de choses avait déjà été évoqué sur une source similaire....
outre l'aspect purement formel de l'adresse, on a toujours la possibilité d'envoyer un mail, avec un code de validation, comme on le voit souvent....
cs_cosmic
Messages postés61Date d'inscriptionmercredi 30 octobre 2002StatutMembreDernière intervention16 mai 2005 9 mars 2004 à 00:28
le top serais de vérifier le nom de domaine après le @
ou de vérifier directement sur le serveur concerné si l'adresse email existe!!!
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 7 mars 2004 à 22:50
Et les amis vous oublier que la chaine de caractere apres le @ est un nom de domain, de surcrois il peut prendre nimporte quel nom de domaine valide comme aaa, abc.com, 1.0.0.127.IN-ADDR.ARPA etc...
donc le test logique derivé de l'idée de renfield ne peut etre bon car il integre des caractere nom valide dans un nom de domaine tel que les espaces. Tester la validité d'une adresse s'avere donc legerement plus complexe.
@+
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 7 mars 2004 à 17:31
Merci a Renfield pour cette solution beaucoup plus fiable.
BruNews, Admin CS, MVP Visual C++
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 7 mars 2004 à 16:27
tu peux utiliser LIKE :
If "thomas_reynald@msn.com" like "?*@?*.??*" Then
MsgBox "eMail Valide"
Else
MsgBox "eMail Invalide"
End if
cmoapierre
Messages postés46Date d'inscriptiondimanche 14 décembre 2003StatutMembreDernière intervention 8 août 2005 7 mars 2004 à 16:13
Oué c klr que ca pouré etre plus pousé genre :
instr(text1,"@.")=0 ca seré deja mieux ca
voila bon prog
cmoapierre
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 7 mars 2004 à 15:59
"...@aaa" serait donc possible ?
Si tu es en manque d'inspiration, attends de la retrouver plutot que de poser des trucs aussi inutiles.
11 mai 2004 à 19:10
11 mai 2004 à 15:51
que pensez vous de la fonction de validation proposee (parmis d autre) par jesusonline ?
http://www.aspfr.com/code.aspx?ID=21651
Public Function isEmail(ByVal _Value As String) As Boolean
Dim objIntPattern As New _
System.Text.RegularExpressions.Regex("^[A-Za-z0-9](([_\.\-]?[a-zA-Z0-9]+)*)@([A-Za-z0-9]+)(([\.\-]?[a-zA-Z0-9]+)*)\.([A-Za-z]{2,})$")
Return objIntPattern.IsMatch(_Value)
End Function
9 mars 2004 à 05:57
outre l'aspect purement formel de l'adresse, on a toujours la possibilité d'envoyer un mail, avec un code de validation, comme on le voit souvent....
9 mars 2004 à 00:28
ou de vérifier directement sur le serveur concerné si l'adresse email existe!!!
7 mars 2004 à 22:50
donc le test logique derivé de l'idée de renfield ne peut etre bon car il integre des caractere nom valide dans un nom de domaine tel que les espaces. Tester la validité d'une adresse s'avere donc legerement plus complexe.
@+
7 mars 2004 à 17:31
BruNews, Admin CS, MVP Visual C++
7 mars 2004 à 16:27
If "thomas_reynald@msn.com" like "?*@?*.??*" Then
MsgBox "eMail Valide"
Else
MsgBox "eMail Invalide"
End if
7 mars 2004 à 16:13
instr(text1,"@.")=0 ca seré deja mieux ca
voila bon prog
cmoapierre
7 mars 2004 à 15:59
Si tu es en manque d'inspiration, attends de la retrouver plutot que de poser des trucs aussi inutiles.
BruNews, Admin CS, MVP Visual C++