22 | 02 | 2017

Validate Email Address

'This function checks if a email address is entered correctly.
'It returns a false statement if the address is not correct
 
Function CheckEmailAdres(ByVal email As String) As Boolean
CheckEmailAdres = True
 
   If InStr(email, "@") = 0 Or _
    InStr(email, ".") = 0 Or _
    Len(email) < 7 Then
    CheckEmailAdres = False
   End If
 
End Function
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2174968
Latest Articles