RegExp per la validazione e-mail

[Cesar]

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

       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 ?

[Santino83_02]

cercandolo su internet

http://regexlib.com/