Email or not email ??????

0/5 (4 avis)

Snippet vu 5 306 fois - Téléchargée 50 fois

Contenu du snippet

Une fonction pour voir si un texte représente ou pas une adresse email!

Source / Exemple :


Public Function email_OU_pas(txtEmail As String) As Boolean
'=======================================================================================================================================================================
'Fonction qui marche comme suite:
'Detecte la dernier position d'un point ds la chaine saisis, puis le dernier emplacement d'un @ et apres elle compare
'il doit y avoir au moins deux caractere avant le @ et deux apres le dernier point et la position du dernier point se trouve apres le @ par au moins deux xaractere
'ex: e@ct@mp.lo = Faux, cdr@mopl.co = Vrai, cc@cc.fd.lo = Vrai
'seedorf@altavista.com (celle la c'est la mienne :-) si vous voulez m'ecrire.
'aller bonne chance.
'=======================================================================================================================================================================

Dim DERN_POINT, DERN_AT As Integer 'position du dernier point et dernier @
Dim LEN_AFTER_POINT As Integer 'Nombre de caractere apres le dernier point
'Boucle pour detecter le dernier "."
For i = 1 To Len(Trim$(txtEmail))
If Mid$(Trim$(txtEmail), i, 1) = "." Then
DERN_POINT = i
End If
Next i
'Boucle pour detecter le dernier "@"
For i = 1 To Len(Trim$(txtEmail))
If Mid$(Trim$(txtEmail), i, 1) = "@" Then
DERN_AT = i
End If
Next i
'Pour detecter le nombre de caracteres apres le dernier "."
LEN_AFTER_POINT = Len(txtEmail) - DERN_POINT

'Fait le teste
If Trim(txtEmail) <> "" And (DERN_AT >= 3 And DERN_POINT >= 6 And DERN_AT <= DERN_POINT - 2 And LEN_AFTER_POINT >= 2) Then
email_OU_pas = True
Else
email_OU_pas = False
End If

End Function

Conclusion :


Hésitez pas à m'envoyer des email au cas ou.
seedorf@altavista.com

seedorf

A voir également

Ajouter un commentaire Commentaires
isrichoukry Messages postés 6 Date d'inscription mardi 11 avril 2006 Statut Membre Dernière intervention 8 mai 2006
16 avril 2006 à 17:26
Je voudrais bien poser une question:

Comment faire pour écrire une adresse email dans un textbox, et faire en sorte que la cellule qui recoit cette adresse soit validée comme adresse e mail ( soulignée en bleu)
cs_Steff Messages postés 34 Date d'inscription vendredi 9 novembre 2001 Statut Membre Dernière intervention 29 mars 2007
23 janv. 2003 à 17:36
Le if et instr est bien, mais il te permettra de ne trouver que la première occurence du @ et du "." le instrrev te donnera la position que des derniers. Pour checker s'il y en a plusieurs et controler ainsi si l'adresse est bonne, soit tu fait un if réentrant (lourd pour trouver juste un arobas et un point) soit une boucle sur la chaine. A mon gout, les boucles sont bien venus ici.
cs_Vyse Messages postés 8 Date d'inscription mardi 27 août 2002 Statut Membre Dernière intervention 6 mai 2004
24 sept. 2002 à 18:00
dernPoint = InStrRev(mail, ".")
dernAt = InStrRev(mail, "@")

au lieu de ces boucles inutiles
lpikachu58 Messages postés 351 Date d'inscription samedi 2 février 2002 Statut Membre Dernière intervention 6 mai 2004 2
2 févr. 2002 à 11:06
Pour détecter le at il faudrait mieu utiliser un if et la fonction instr

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.