Function IsMail(sEmail)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "^[a-z._-]+\@[a-z._-]+\.[a-z]{2,4}$"
objRegExp.IgnoreCase = True
IsMail = objRegExp.Test(sEmail)
End Function
Ho testato per caso questo pattern che uso spesso...
e mi sono acocrto che non accetta email del tipo:
email5@test.it
em6il@test.it
come posso rimediare ?
Grazie.
Rispondi quotando