TESTER LA VALIDITÉ D'UN E-MAIL

Public Function IsValidMail(Mail)
Dim Interdit, Arobase, Point

Interdit = Array(" ", "é", "è", "à", "'", "¨", "^", "`", "~", ":", ",")
Arobase = InStr(1, Mail, "@")
Point = InStr(1, Mail, ".")


Dim I, J
For I = 1 To Len(Mail)
    For J = 1 To UBound(Interdit)
        If InStr(1, Mail, Interdit(J)) <> 0 Then
            IsValidMail = False
            Exit Function
        End If
    Next
Next


If Mail = "" Then
    IsValidMail = False
Else
    If Arobase <> 0 And Point <> 0 Then
        IsValidMail = True
    Else
       IsValidMail = False
    End If
End If


End Function