Copy Code code as follows:
'********************************************
' Function name: IsValidEmail
' Function: Check email address legality
' Parameters: Email----email address to check
' Return value: True----Email address is valid
' False----Email address is illegal
'********************************************
Public Function IsValidEmail (Email)
Dim names, name, I, C
IsValidEmail = True
Names = Split (Email, "@")
If UBound (names) <> 1 Then isvalidemail = False:exit Function
For each name in names
If Len (name) <= 0 Then isvalidemail = false:exit Function
For I = 1 to Len (name)
c = LCase (Mid (name, I, 1))
If InStr ("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric (c) Then IsValidEmail = False:exit Function
Next
If Left (name, 1) = "." Or Right (name, 1) = "." Then IsValidEmail = False:exit Function
Next
If InStr (Names (1), ".") <= 0 Then isvalidemail = false:exit Function
I = Len (names (1))-InStrRev (names (1), ".")
If I <> 2 and I <> 3 Then isvalidemail = False:exit Function
If InStr (Email, "...") > 0 Then isvalidemail = False
End Function
Other languages can refer to:
e-mail address regular expression validation code collection cloud-dwelling Community Special edition
