• Home
 · 
• Internet/HTML
 · 
• Email Id Validation

Email Id Validation

Email Id Validation

API Declarations


' Call this function at the lost focus of the emailid textbox for prompt checking of the



Rate Email Id Validation

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim a As Integer
    Dim arr(23, 0) As String
    Dim i As Integer
    arr(0, 0) = "`"
    arr(1, 0) = "~"
    arr(2, 0) = "!"
    arr(3, 0) = "#"
    arr(4, 0) = "%"
    arr(5, 0) = "^"
    arr(6, 0) = "&"
    arr(7, 0) = "*"
    arr(8, 0) = "("
    arr(9, 0) = ")"
    arr(10, 0) = "{"
    arr(11, 0) = "}"
    arr(12, 0) = "["
    arr(13, 0) = "]"
    arr(14, 0) = ":"
    arr(15, 0) = ";"
    arr(16, 0) = "'"
    arr(17, 0) = "'"
    arr(18, 0) = "<"
    arr(19, 0) = ">"
    arr(20, 0) = ","
    arr(21, 0) = "?"
    arr(22, 0) = "/"
    arr(23, 0) = "\"
    
    If Email Like "*@*.???" Or _
         Email Like "*@*.??.??" Or _
         Email Like "*@*.???.??" Then EmailOK = True
    For a = 0 To 23
        i = InStr(1, txtEmailId, arr(a, 0))
        If i <> 0 Then
        EmailOK = False
        End If
    Next a
    If Email Like "*@*@*.???" Or Email Like "*@.???" Then EmailOK = False
End Function