validar una direccion de correo con letra ñ

[Marcelo Barberis]

Buenas tardes, me paso que quiero registrar una direccion de correo y resulta que la direccion contiene una letra ñ

lcEmail = "alexmarce40@elchañar.com"
IF Validar_Email(lcEmail)    
MESSAGEBOX("La dirección de correo electrónico es válida.")
ELSE    
MESSAGEBOX("La dirección de correo electrónico no es válida.")
ENDIF

FUNCTION Validar_Email
LPARAMETERS cEmail

LOCAL ore,resultado

IF EMPTY(m.cemail)
m.resultado = .T.
ELSE
ore = CREATEOBJECT("VBScript.RegExp")
ore.pattern = '^(([A-Za-z0-9]+_+)|([A-Za-z0-9]+\-+)|([A-Za-z0-9]+\.+)|([A-Za-z0-9]+\++))*[A-Za-z0-9]+@((\w+\-+)|(\w+\.))*\w{1,63}\.[a-zA-Z]{2,6}$'
m.resultado = ore.test(ALLTRIM(m.cemail))
ENDIF

RETURN m.resultado
ENDFUNC

Como podria modificar esta funcion para que me acepte en el caso de que la direccion de correo contenga una letra ñ tanto antes del @ o despues.

Desde ya gracias

--

Marcelo Barberis Gutierrez
Sistemas Informaticos
Villa Montes - Bolivia
Telef.: +591-76830544

[Hendell Mora]

oRE.PATTERN= "^[^@]+@[^@]+\.[a-zA-Z]{2,}$"

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMUm0dnpZa0j4s2Sq%3D%3DRO7iUuhCYio%2BV1hKMDD-d%3DKrxdSxVuw%40mail.gmail.com.

[WP -Desarrollo- WEB]

[Edwin Duran]

Gracias Wilson, Podrías copiar lo por aquí para probar lo