Tester la validité d'un e-mail

Commenter

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

S'inscrire maintenant

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.

Du même auteur (vbtom)