Verification d'un E_mail [Résolu]

Signaler
Messages postés
25
Date d'inscription
samedi 21 octobre 2006
Statut
Membre
Dernière intervention
11 avril 2008
-
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
-
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

7 réponses

Messages postés
30
Date d'inscription
lundi 5 juin 2006
Statut
Membre
Dernière intervention
26 septembre 2008

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
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
21
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


 
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
21
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...
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Salut,


Et de 2 Jmfmarques(bonsoir)...


A+
Exploreur


 
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
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~
  
Messages postés
346
Date d'inscription
jeudi 15 février 2007
Statut
Membre
Dernière intervention
24 avril 2010

BONSOIR mes LIKE ne suffit pas et ne donne pas une bonne validation voici un exemple  @@@@@.@fdhdfd.@
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
21
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 ...