Email or not email ??????

Commenter

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

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