Option Explicit Const MODULE_NAME As String = "modMail" '' Validate email address Public Function ValidateEmailAddress(ByVal strEmailAddress As String) As Boolean On Error GoTo Catch Dim objRegExp As New RegExp Dim blnIsValidEmail As Boolean objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$" blnIsValidEmail = objRegExp.Test(strEmailAddress) ValidateEmailAddress = blnIsValidEmail Exit Function Catch: ValidateEmailAddress = False MsgBox "Module: " & MODULE_NAME & " - ValidateEmailAddress function" & vbCrLf & vbCrLf _ & "Error#: " & Err.Number & vbCrLf & vbCrLf & Err.Description
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter