Isemail(), simple vérification d'e-mail

Commenter

Contenu du snippet

Voici un code simple qui permet de vérifier la syntaxe d'une adresse e-mail

Il doit y avoir déjà de nombreux codes sources sur ce sujet, certains même permettent de vérifier si le provider existe.

Mais bon ne trouvant pas mon bonheur (code trop long, ou trop complet genre ping du provider), j'ai fait cette fonction, la plus simple possible.

quelque explication : ma fonction vérifie si l'email ne comporte pas d'espace, comporte un caractère "@" (et un seul), vérifie si la partie du provider comporte au moins 1 point, et vérifie aussi qu'après le dernier point il y a au moins 2 caractère.

J'espere que cette fonction sera utile a certain.. :)

désoler le code n'est pas commenté, mais il est trés simple.

Source / Exemple : 


Public Function IsEmail(argEmail As String) As Boolean
    Dim tabemail() As String
    Dim tabprovider() As String
    
    IsEmail = False
    
    If InStr(1, argEmail, " ", vbTextCompare) = 0 Then
        tabemail = Split(argEmail, "@")
        If UBound(tabemail) = 1 Then
            tabprovider = Split(tabemail(1), ".")
            If UBound(tabprovider) > 0 Then
                If Len(tabprovider(UBound(tabprovider))) >= 2 Then IsEmail = True
            End If
        End If
    End If
End Function

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