• Home
 · 
• String Manipulation
 · 
• Validates Email ID

Validates Email ID

Validates Email ID

Rate Validates Email ID

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Public Function ValidateEmail(ByVal sEmail As String) As Boolean
  Dim m, n, o, i
  If InStr(sEmail, "@") > 0 Then
    For i = 1 To Len(sEmail)
      If InStr("[email protected]_", Mid(sEmail, i, 1)) > 0 Then
      Else
        ValidateEmail = False
        Exit Function
      End If
    Next i
    m = Split(sEmail, "@")
    If UBound(m) > 1 Then
      ValidateEmail = False
      Exit Function
    End If
    o = Split(m(0), ".")
    For i = 0 To UBound(o) ' - 1
      If Len(o(i)) < 1 Then
        ValidateEmail = False
        Exit Function
      End If
    Next i
    For i = 0 To UBound(m) - 1
      If Len(m(i)) < 2 Then
        ValidateEmail = False
        Exit Function
      End If
    Next i
    If InStr(m(1), ".") > 0 Then
      n = Split(m(1), ".")
      For i = 0 To UBound(n) ' - 1
        If Len(n(i)) < 2 Then
          ValidateEmail = False
          Exit Function
        End If
      Next i
    Else
      ValidateEmail = False
      Exit Function
    End If
  Else
    ValidateEmail = False
    Exit Function
  End If
  ValidateEmail = True
End Function