les test possible sur l'@ email

Question

salut tout le monde,

vous pouvez m'aider pour savoir les test possible sur une adresseemail , apart le truc de l'@ et le point par exemple le test si le "yahoo.fr" existe si on peut ping ou non

jaime bien savoir comment :p

bonne journee
merci d'avance

lesdis · Answer

Bonjour,

Pour ma part, je dirais que tu peux dejà faire une première vérification sur le format de l'email : caracteres interdits, nombre caractere max, l'@, le point.
Ensuite si cela ne suffit pas, il faudra avoir une liste d'extension pour pouvoir comparer. Par exemple, tu peux vérifier les nom de domaines ou l'extension du pays.

Mais le mieux pour être sur qu'une adresse existe est d'envoyer un mail de confirmation qui contient un lien que l'utilisateur doit suivre pour activer son compte.

Bonne Prog

Renfield · Answer

pourrais tu reposer ta question de manière claire ?

nada2008 · Answer

bon merci 'lesdis' pour la reponse  
renfield ma question c'etait je veux savoir les tests possible de la validité d'une @ email.
; et en vb6 comment je peut le faire .

merci

lesdis · Answer

Un petit tour dans la fonction rechercher du site et....
http://www.vbfrance.com/recherche.aspx?r=validation+email&dotnet=2

Bonne Prog

Renfield · Answer

clair que la fonction de recherche peut largement t'aider, c'est un sujet courant

cs_ghuysmans99 · Answer

Ajoute "Microsoft VBScript Regular Expressions" dans les références :

Public Function ValidMail(myEmail As String) As Boolean
 Dim isValidE As Boolean: isValidE = True
 Dim Regex As Object: Set Regex = CreateObject("VBScript.RegExp")
 Regex.IgnoreCase = False
 Regex.Pattern = "^[\w-]+(?:\.[\w-]+)*@(?:[\w-]+\.)+[a-zA-Z]{2,7}$"
 isValidE = Regex.Test(myEmail)
 ValidMail = isValidE
End Function
, ----
[../code.aspx?ID=41455 Syntax color by Renfield]

cs_ghuysmans99 · Answer

Il faudrait aussi tester une résolution DNS sur le nom de domaine ...
Mais bon, ça commence à faire lourd !

cs_ghuysmans99 · Answer

Oups, j'ai oublié la destruction de l'objet :
Public Function ValidMail(myEmail As String) As Boolean
Dim isValidE As Boolean: isValidE = True
Dim Regex As Object: Set Regex = CreateObject("VBScript.RegExp")
Regex.IgnoreCase = False
Regex.Pattern = "^[\w-]+(?:\.[\w-]+)*@(?:[\w-]+\.)+[a-zA-Z]{2,7}$"
isValidE = Regex.Test(myEmail)
ValidMail = isValidE
Set Regex = Nothing
End Function
, ----
[../code.aspx?ID=41455 Syntax color by Renfield]

cs_ghuysmans99 · Answer

A propos, Renfield, ton addon a un léger problème : il massacre l'indentation dans les Sub, par exemple :
Sub masub
 MsgBox "hello"
End Sub 'masub

Deviendra
Sub masub
MsgBox "hello"
End Sub 'masub

cs_ghuysmans99 · Answer

Et aussi dans les fonctions ...
En fait, dans tout le "1er niveau"

Renfield · Answer

pour la coloration, je regarderai, j'ai un truc a y revoir depuis un moment deja

merci ghuysmans99

pour le Set à Nothing, pas indispensable (donne bonne conscience)

nada2008 · Answer

merciiiiiiiii bcp


jattend tjrs vos propositions


 


 


bonne journee

Les test possible sur l'@ email

12 réponses

Votre réponse

Discussions similaires