* ValidateEmailAddress LPARAMETERS tcEmailAddr LOCAL loRegExp loRegExp = CreateObject("VBScript.RegExp") loRegExp.IgnoreCase = .T. loRegExp.Pattern = '(\w[-._\w]*\w@\w[-._\w]*\w\.\w{2,9})' RETURN loRegExp.Test(tcEmailAddr) * ExtractAddresses(tcFromAddr) LPARAMETERS tcEmailAddr LOCAL loRegExp, loEmAddrList loRegExp = CreateObject("VBScript.RegExp") loRegExp.IgnoreCase = .T. loRegExp.Pattern = '(\w[-._\w]*\w@\w[-._\w]*\w\.\w{2,9})' loEmAddrList = loRegExp.Execute(tcEmailAddr) RETURN loEmAddrList