Email or not email ??????

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 151 fois - Téléchargée 48 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

Messages postés
6
Date d'inscription
mardi 11 avril 2006
Statut
Membre
Dernière intervention
8 mai 2006

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)
Messages postés
34
Date d'inscription
vendredi 9 novembre 2001
Statut
Membre
Dernière intervention
29 mars 2007

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.
Messages postés
8
Date d'inscription
mardi 27 août 2002
Statut
Membre
Dernière intervention
6 mai 2004

dernPoint = InStrRev(mail, ".")
dernAt = InStrRev(mail, "@")

au lieu de ces boucles inutiles
Messages postés
351
Date d'inscription
samedi 2 février 2002
Statut
Membre
Dernière intervention
6 mai 2004
2
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.