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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 386 fois - Téléchargée 33 fois

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

Ajouter un commentaire

Commentaires

Splif62
Messages postés
28
Date d'inscription
vendredi 28 mars 2008
Statut
Membre
Dernière intervention
29 mars 2009
-
Merci beaucoup pour cette fonction !!
j'étais parti sur un casse tête mais sa à l'air sympa !
merci superpinguin !
Sinsitrus
Messages postés
863
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
Où est ce que je le met ce code ?
Et où est le nom du TextBox pour vérification ?
Je suis perdu là !
cs_code1
Messages postés
22
Date d'inscription
vendredi 30 juillet 2004
Statut
Membre
Dernière intervention
21 octobre 2004
-
bien résonné renfield en itulisant l'instruction like
cs_NISANDSYSTEMS
Messages postés
179
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
9 janvier 2010
-
tout a fait Renfield,mais essaye plutot une formule d'aide du type:

Ce sujet exite deja, je te propose une solution de ma part: <type code.......................>

Beaucoup nous connaissent, mais enorme, sont les nouveaux sur VBFrance.

Sinon, bonne continuation....
@+
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
je suis tout a fait d'accord sur le fait que tout le monde avance a son rythme, et que chacun a son experience, son niveau...

je n'ai pas l'impression d'avoir été aggressif....

j'indique juste que d'autres sources traitent de la validation de la forme, d'un email...
Ces autres sources utilisent d'autres techniques que j'indique en partie ici.

par exemple :

Public Function IsEmail(argEmail As String) As Boolean
IsEmail = argEmail like "???*@??*.??*"
End Function


j'ai de plus indiqué quelques points sensibles du code soumis ici.

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)