Est-ce une adresse mail valide ?

Commenter

Contenu du snippet

Renvoi True si l'adresse est valide et False dans le cas contraire. Vous constaterez que je vérifie un tableau de caractères interdits en passant par leur code ASCII respectif. Cela est dû au fait que la méthode "indexof" est buggée. En effet, les caractères 230 et 97 au niveau caractères sont considérés comme égaux pour cette méthode ...

A la demande générale, je modifie la source avec une expression regulière !

Source / Exemple : 


Public Function IsValidEmail(ByVal Adresse As String) As Boolean
Dim reg As New Regex("^([a-zA-Z0-9]+(([\.\-_]?[a-zA-Z0-9]+)+)?)\@(([a-zA-Z0-9]+[\.\-_])+[a-zA-Z]{2,4})$")
        'Dim Reg As New Regex("[a-Z]{1}[0-9a-Z]*[@]{1}[0-9a-Z]*.[a-Z]{2,4}")
        Dim Mc As MatchCollection = Reg.Matches(Adresse)
        Dim s As Boolean

        If Mc.Count <> 1 Then
            s = False
        Else
            s = True
        End If

        Return s
End Function

Conclusion :


Voila il semble que ce soit sinon parfait mais presque !

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 (SimonKari)