by GAUTAM KAIKINI (5 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 13th September 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about THIS IS AN EMAIL ID VALIDATION PROGRAM.IT VALIDATES THE EMAIL ID ENTERED BY THE USER AND CHECKS THA. Why not be the first to post a comment about THIS IS AN EMAIL ID VALIDATION PROGRAM.IT VALIDATES THE EMAIL ID ENTERED BY THE USER AND CHECKS THA.