Salve,
il seguente pattern non mi funziona per il seguente tipo di indirizzo email: abcdef.r69@inwind.it


codice:
       Function IsMail(email)
		Dim ObjRegexp
		Dim risultato
		Set ObjRegexp = New RegExp
		ObjRegexp.Global = True
		ObjRegexp.IgnoreCase = True
		ObjRegexp.Pattern ="^[_a-z0-9+-]+(\.[_a-z0-9+-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)+$"
		risultato = ObjRegexp.Test(email)
		Set ObjRegexp = Nothing
		IsMail = risultato
	End Function
Come posso modificare questo pattern ?