Discussion :

[Tchupacabra]

Bonjour à tous,

je suis à la recherche d'une fonction vérifiant la syntaxe d'une adresse email en vba...

Merci d'avance

@+

[Tofalu]

Un truc genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If MonAdresse Like "*@*.*" Then

devrait suffir non ?

[Tchupacabra]

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 :

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

De toutes évidences, la vérification est loin d'être optimisée... comment pourrais-je l'améliorer ?

@+

[Tchupacabra]

en php, je viens de trouver ceci :

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;
 
}

Il est possible de l'adapter au vba ?

[Demco]

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.

[Tchupacabra]

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.

@+