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 !
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.