Bonjour à tous,
je suis à la recherche d'une fonction vérifiant la syntaxe d'une adresse email en vba...
Merci d'avance
@+![]()
Bonjour à tous,
je suis à la recherche d'une fonction vérifiant la syntaxe d'une adresse email en vba...
Merci d'avance
@+![]()
Un truc genre
devrait suffir non ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part If MonAdresse Like "*@*.*" Then
Merci Tofalu
ton truc marche bien.... mais suffir : oui, pour le moment... parce que c'est un peu léger comme vérification...![]()
Y aurait-il moyen de vérifier s'il n'y a pas de caractères interdits et si le nombre de caractères est suffisant selon la partie de l'email ?
Pour le moment, j'ai fait ceci :
De toutes évidences, la vérification est loin d'être optimisée... comment pourrais-je l'améliorer ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Private Sub txtEmail_AfterUpdate() Dim tableau As Variant tableau = Split(Me.txtEmail.Value, "@") If Len(tableau(0)) >= 1 And Len(tableau(1)) >= 3 Then tableau = Split(tableau(1), ".") If Len(tableau(0)) >= 2 And Len(tableau(1)) >= 1 And Len(tableau(1)) <= 4 Then ' adresse email correcte Else ' syntaxe incorrecte End If Else ' syntaxe incorrecte End If End Sub
@+![]()
en php, je viens de trouver ceci :
Il est possible de l'adapter au vba ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 function VerifMail ($Mail) { $Retour = eregi("^[[:alpha:]]{1}[[:alnum:]]*((\.|_|-)[[:alnum:]]+)*@". "[[:alpha:]]{1}[[:alnum:]]*((\.|-)[[:alnum:]]+)*". "(\.[[:alpha:]]{2,})$", $Mail); Return $Retour; }
Bon j'avoue elle n'était pas facile à trouver dans la FAQ, je tâcherai d'arranger ça :
http://access.developpez.com/faq/?page=Langage#regexp
En espérant t'aider.
Trop de la balle![]()
![]()
![]()
Merci beaucoup Demco. C'est qu'en cherchant avec le mot "mail" je suis passé à coté....![]()
En tout cas merci à tous, ce site est vraiment efficace à souhait... Que du bonheur.
@+![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager