• Home
 · 
• String Manipulation
 · 
• THIS IS AN EMAIL ID VALIDATION PROGRAM.IT VALIDATES THE EMAIL ID ENTERED BY THE USER AND CHECKS THA

THIS IS AN EMAIL ID VALIDATION PROGRAM.IT VALIDATES THE EMAIL ID ENTERED BY THE USER AND CHECKS THA

THIS IS AN EMAIL ID VALIDATION PROGRAM.IT VALIDATES THE EMAIL ID ENTERED BY THE USER AND CHECKS THAT THE EMAILID CONTAINS 1 "@" SIGN AND 1

Rate THIS IS AN EMAIL ID VALIDATION PROGRAM.IT VALIDATES THE EMAIL ID ENTERED BY THE USER AND CHECKS THA

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

  If Email = "" Or Email Like "*@*" _
   And (Email Like "*.??" Or Email Like "*.???") _
   Then EmailOK = True
  If Email Like "*.???" Then
    Select Case Right$(Email, 4)
      Case ".com", ".net", ".edu", ".mil", ".gov", ".org"
      Case Else: EmailOK = False
    End Select
  End If
End Function