les test possible sur l'@ email

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

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

pourrais tu reposer ta question de manière claire ?

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

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

Bonne Prog

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

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

Syntax color by Renfield

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

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

Syntax color by Renfield

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