* FUNCTION ValidateEmailAddress >LPARAMETERS tcEmailAddr >LOCAL loRegExp >loRegExp = CreateObject("VBScript.RegExp") >loRegExp.IgnoreCase = .T. >loRegExp.Pattern = '< Email Validation pattern you prefer here >' >RETURN loRegExp.Test(tcEmailAddr) >Just in case you were looking for the pattern. Here it is.
loRegExp.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"