Verification d'un E_mail [Résolu]

Messages postés
25
Date d'inscription
samedi 21 octobre 2006
Statut
Membre
Dernière intervention
11 avril 2008
- - Dernière réponse : jmfmarques
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
- 26 avril 2007 à 23:12
Salut tout le monde
Est ce que quelqu'un peut me donner le code de verification d'un mail s'il y a le "@" et le point
Merci d'avance
Afficher la suite 

7 réponses

Meilleure réponse
Messages postés
30
Date d'inscription
lundi 5 juin 2006
Statut
Membre
Dernière intervention
26 septembre 2008
3
Merci
tien essai ça ;)



Public

Function verifier_mail(ByRef a AsString) AsBoolean<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>






       
Dim var AsBoolean = False






       
Dim tab AsChar() = NewChar() {"/", "*", "+", "&"}






       
If a.IndexOf("@") -1 Or a.IndexOf(".") -1 Or a.IndexOf("@") <> a.LastIndexOf("@") Or a.LastIndexOf(".") - a.LastIndexOf("@") < 2 Or a.Split(tab).Length > 1 Or a.Length - 1 = a.IndexOf(".") Then






            var = True






       
End
If







       
If var = TrueThen






            MsgBox("email incorrecte")






       

End

If







       
Return var








   
End
Function

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 6036 internautes nous ont dit merci ce mois-ci

Commenter la réponse de surfeurX
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
18
3
Merci
Ben mon vieux !...

Alors (avec Like) :

Private Sub Command1_Click()
  toto = "[mailto:jmmarques@titi.fr jmmarques@titi.fr]"
  MsgBox IIf(toto Like ("*@*.*"), "bon", "pas bon")
  toto = "jmmarquestiti.fr"
  MsgBox IIf(toto Like ("*@*.*"), "bon", "pas bon")
  toto = "[mailto:jmmarques@titifr jmmarques@titifr]"
  MsgBox IIf(toto Like ("*@*.*"), "bon", "pas bon")
End Sub


 

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 6036 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jmfmarques
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
18
0
Merci
Salut,

je pense que tu as voulu dire "vérufier la validité/cohérence d'une adresse email"...
Je ne vais pas te donner "un code", non,  mais t'inviter à voir (dans ton aide en ligne) la fonction Instr et/ou l'opérateur de comparaison Like ..
Tu devrais y trouver ton bonheur, ma foi...
Commenter la réponse de jmfmarques
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
0
Merci
Salut,


Et de 2 Jmfmarques(bonsoir)...


A+
Exploreur


 
Commenter la réponse de cs_Exploreur
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
0
Merci
Même remarque que l'autre topic sur le code, il est en VB6. (pas dotnet)

Il faut rechercher du côté de Regex (expressions régulières). Tu as d'ailleurs un tutorial sur la façon de gérer les adresses mails

@++

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
  
Commenter la réponse de mortalino
Messages postés
346
Date d'inscription
jeudi 15 février 2007
Statut
Membre
Dernière intervention
24 avril 2010
0
Merci
BONSOIR mes LIKE ne suffit pas et ne donne pas une bonne validation voici un exemple  @@@@@.@fdhdfd.@
Commenter la réponse de mimosa803
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
18
0
Merci
Mimosa, bonsoir,

Tu devrais réfléchir...(ce n'était qu'un exemple)

Private Sub Command1_Click()
  toto = "[mailto:jmfmarques@titi.fr jmfmarques@titi.fr]"
  pasbon = "*@@*"
  pasbon1 = "*..*"
  MsgBox IIf(toto Like ("*@*.*") And Not toto Like pasbon And Not toto Like pasbon1, "bon", "pas bon")
  toto = "[mailto:jmfmarques@@titi.fr jmfmarques@@titi.fr]"
  MsgBox IIf(toto Like ("*@*") And Not toto Like pasbon And Not toto Like pasbon1, "bon", "pas bon")
  toto = "jmfmarquestiti..fr"
  MsgBox IIf(toto Like ("*@*.*") And Not toto Like pasbon And Not toto Like pasbon1, "bon", "pas bon")
End Sub

Fais-moi la grâce de ne pas me dire "mais quid de "....@....@...." ou ".... @aaaa.vvvv.fr"
Car je vais aller tout droit au but avec Like uniquement et sans pasbon et pasbon1... hein ...
Tu devrais savoir que je ne donne jamais une solution sans laisser l'autre chercher un peu ....
Je ne donne que les bases d'une réflexion. Réfléchis donc ...
Commenter la réponse de jmfmarques