Tester la validité d'un e-mail

0/5 (6 avis)

Snippet vu 8 821 fois - Téléchargée 35 fois

Contenu du snippet

Tout est dans le titre...
Ca peut etre util...Mieux vaut le faire en JS client mais bon...

Source / Exemple :


Public Function IsValidMail(Mail)
Dim Interdit, Arobase, Point

Interdit = Array(" ", "é", "è", "à", "'", "¨", "^", "`", "~", ":", ",")
Arobase = InStr(1, Mail, "@")
Point = InStr(1, Mail, ".")

Dim I, J
For I = 1 To Len(Mail)
    For J = 1 To UBound(Interdit)
        If InStr(1, Mail, Interdit(J)) <> 0 Then
            IsValidMail = False
            Exit Function
        End If
    Next
Next

If Mail = "" Then
    IsValidMail = False
Else
    If Arobase <> 0 And Point <> 0 Then
        IsValidMail = True
    Else
       IsValidMail = False
    End If
End If

End Function

Conclusion :


Voila,voila...
@++
vbtom.

PS:Bon c vrai que ce source est pourri m'enfin de la a mettre 1... mdr
Pkoi tu dis ca ??

PS:oups je m'excuse NIX l'a deja fait...Mince...Et en + c'est le meme nom de fonction alors que g jms vu son source...Dingue!

A voir également

Ajouter un commentaire

Commentaires

vbtom
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003
-
ouais bon ce source est merdique certe.... de tout de facon celui qui est capable de faire peut faire mieux donc tous les newb qui auront lu et compri ce source seront capable de faire un truc bien.... Bon c'est vrai que c'est petit comme excuse............ :)
bien, une fonction comme les autres, mais elle lui manque bcp de choses, un mail par exemple ne se termine jamais par un _ ou par un . t'as pensé à ça?
mais bon c'est une V 1.0 n'est ce pas ? :)
Bonjour,
bon je suis débutante en langage ASP.
je veux savoir comment peut établir une connexion en ASP
Pourquoi tu dis ca lahbib??Je te signales que si c'est toi qui a foutu cette note de merde justa pask t'aimes pas les sources qui n'ont pas de rapport avec les BDD tu pourrais regarder mes autres sources et pis c'est tout!!
Pask 1 c pas une note terrible...Faut dire que le source n'est pas terrible non plus...
j'aimerai bien publier des programmes ASP concernant la gestion des bases de données
et Merci.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.