king_moez
Messages postés25Date d'inscriptionsamedi 21 octobre 2006StatutMembreDernière intervention11 avril 2008
-
26 avril 2007 à 22:04
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 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
surfeurX
Messages postés30Date d'inscriptionlundi 5 juin 2006StatutMembreDernière intervention26 septembre 2008 26 avril 2007 à 22:27
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
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 26 avril 2007 à 22:36
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
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 26 avril 2007 à 22:11
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...
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 26 avril 2007 à 23:12
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 ...