How to check Email validation in regular expression

Hello Friends,

I am trying to check whether email id is valid or not.
I have a pattern and i want this in function
my pattern is :

"^(?(\)(\[^\]+?\@)|(([0-9a-z]((\\.(?!\\.))|[-!#\\$%&'\\*\\+/=\\?\\^`\\{\\}\\|~\\w])*)(?<=[0-9a-z])@))(?(\\[)(\\[(\\d{1,3}\\.){3}\\d{1,3}\\])|(([0-9a-z][-\\w]*[0-9a-z]*\\.)+[a-z0-9]{2,24}))$"

I don't understand how to use in function.

Please suggest me.

Try like this:

Option Explicit
Function ValidEmail(myEmail As String) As String
Dim regExp As Object
Set regExp = CreateObject("VBScript.Regexp")
        With regExp
            .Global = True
            .IgnoreCase = True
            .Pattern = "^(?(\)(\[^\]+?\@)|(([0-9a-z]((\\.(?!\\.))|[-!#\\$%&'\\*\\+/=\\?\\^`\\{\\}\\|~\\w])*)(?<=[0-9a-z])@))(?(\\[)(\\[(\\d{1,3}\\.){3}\\d{1,3}\\])|(([0-9a-z][-\\w]*[0-9a-z]*\\.)+[a-z0-9]{2,24}))$"
        End With
        If regExp.Test(myEmail) = True Then
            ValidEmail = "Valid"
        Else
            ValidEmail = "Invalid" 
        End If
Set regExp = Nothing
End Function

To use as

Formula:

=ValidEmail(A1)

Not tested.

Hi
thanks KOKOSEK

i tried but got error #VALUE!

That's your pattern.
With:

.Pattern = "^[\w-\.]+@([\w-]+\.)+[A-Za-z]{2,4}$"

works fine and I think validate correctly. But it simple checking. I guess that your pattern is not correct. I am not a Regexp expert.

This should suffice in 99.99%.

Function ValidEmail(myEmail As String) As String

    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "^[A-Z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[A-Z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[A-Z0-9](?:[A-Z0-9-]*[A-Z0-9])?\.)+[A-Z0-9](?:[A-Z0-9-]*[A-Z0-9])?$"
        ValidEmail = .Test(UCase(myEmail))
    End With

End Function

hi bakerman2,
Your solution working fine.
but may I know whats wrong in my pattern because it is currently used in other software and its working fine.
I want this pattern to be used so that my result and software result will be same.

software script is as below:

private bool isValidEmail(string emailId)

    {

      return Regex.IsMatch(emailId, "^(?(\")(\"[^\"]+?\"@)|(([0-9a-z]((\\.(?!\\.))|[-!#\\$%&'\\*\\+/=\\?\\^`\\{\\}\\|~\\w])*)(?<=[0-9a-z])@))(?(\\[)(\\[(\\d{1,3}\\.){3}\\d{1,3}\\])|(([0-9a-z][-\\w]*[0-9a-z]*\\.)+[a-z0-9]{2,24}))$", RegexOptions.IgnoreCase);

    }

[a-zA-Z0-9@]w+\.(com|net)

Thanks to reply dabaho
I just want to know what's wrong in above script which I posted.

Please suggest me
It's my great pleasure if Sir Jindon look in to the matter.

Thank you very much Jindon Sir with great explanation.

I am going to used Bakerman2 script.

And finally it's great time that you are still helping me and all of us on this forum.
I always follow you on this forum.
Wish you stay healthy and happy.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.