Roni Schuetz, a Swiss and Israeli national, is an IT project manager, enterprise architect and software engineer. He works as software engineer with over 18 years of professional experience with scripting and object-oriented languages on multiple platforms. Currently he is mainly focusing on RESTful (ROA) and Service (SOA) Oriented Architectures, Enterprise Software / Architecture and RESTful Web Services in the transportation industry.
Function ValidateEmail(Expression)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "^[\w\.-]+@[\w\.-]+\.[a-zA-Z]+$"
ValidateEmail = objRegExp.Test(Expression)
End Function
Posts
No comments:
Post a Comment