That's it.
That would help me do some cleaning.

thanks Tore

>
>Do you mean to validate the email addresses? This function is pretty accurate, meaning that it will return .T. only for legal email addresses.

>Function ValidEmail
>Lparameters lcMail
>Local ox, llReturn
>If Pcount()>0 and Vartype(lcMail)='C'
>  ox=CreateObject('VBScript.RegExp')
>  ox.Pattern= '^[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]' + ;
>    '@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]' + ;
>    '\.[a-zA-Z]{2,4}$'
>  ox.IgnoreCase= .T.
>  ox.Global=.F.
>  llReturn=ox.Test(lcMail)
>  Release ox
>  ox=.NULL.
>EndIf
>Return llReturn