Email Validation In Vb

[dayle]

hey guys i need your help in vb

i have a form with a text box and a button

textbox name=textbox5

buttonname=button1

on the click event of the button i wanna check for a valid format of an email address

on writing this code it builds but wont function the way i want it

k = Mid(TextBox5.Text, 1, Len(TextBox5.Text))

z = k Like "[a-zA-Z0-9][@][a-zA-Z0-9][.][a-zA-Z]"

If z = False Then

MsgBox("invalid email")

End If

ive even tried this validation for the 2nd line

z = k Like "[a-zA-Z0-9]*""[@]{1}""[a-zA-Z0-9]*""[.]{1}"[a-zA-Z]*"

could you please help me out

thanks :D

[dayle]

hello can someone please help me

[0sit0]

i wish i could help you but i started visual basic this semester and dunno much about that stuff :unsure:

[azcodemonkey]

Your pattern is incorrect.

This one works.

*@*.[a-zA-Z][a-zA-Z][a-zA-Z]

when you put [a-z], it is only for one character. Just outta curiosity, why use the mid to store the textbox string in a variable string? It'll work if you just have it like so...

z = textbox5 Like *@*.[a-zA-Z][a-zA-Z][a-zA-Z]

.

.

.

etc.

as long as the email addy is the only thing in the textbox.

[dayle]

Your pattern is incorrect.

This one works.

*@*.[a-zA-Z][a-zA-Z][a-zA-Z]

when you put [a-z], it is only for one character. Just outta curiosity, why use the mid to store the textbox string in a variable string? It'll work if you just have it like so...

z = textbox5 Like *@*.[a-zA-Z][a-zA-Z][a-zA-Z]

.

.

.

etc.

as long as the email addy is the only thing in the textbox.

good point bout the mid..thanx for the syntax

[dayle]

hey dude the code doesnt work..its highlighting the first *

[aemon]

This seems to work

   Dim IsEmailValid As Boolean
    
    IsEmailValid = txtEmailAddress.Text Like "*@*.[a-zA-Z][a-zA-Z][a-zA-Z]"

    If Not IsEmailValid Then
         MsgBox ("invalid email")
    End If
    

[dayle]

thanks guys for the help...it works :D

[azcodemonkey]

Sorry about omitting the quotes. :blush:

[twist]

won't that say that emails that don't have a 3 letter ending are invalid?

wouldn't it say an email like blah@nbnet.nb.ca is invalid?

just wondering

[Lomex]

won't that say that emails that don't have a 3 letter ending are invalid?

wouldn't it say an email like blah@nbnet.nb.ca is invalid?

just wondering

Yes it will

[Steven]

what about having the PERIOD before the @ sign?

wouldn't this be an issue tooooo ? :huh:

john.jacob.jinglehighmer.shmich.james.donavin@jumpandfreinds.us.gov

of and DON"T FORGET TO TRUNCATE SPACES

would that be a problem

email vailidation aint simple.

[twist]

it should be checking for the last instance of the . then to see if its at least two chars long. then see if the chars are valid.

there are a few chars that cannot be in an email address.

its more then single line test.

[azcodemonkey]

Definitely a lot of cases to check. Email addys can't contain special chars, spaces, or control chars. The domain name could also be an IP, a special case, but a case nonetheless.

http://www.ietf.org/rfc/rfc0822.txt?number=822

It's too bad VB 6 doesn't have regular expressions.

[aemon]

Actually Weenur, you can use regular expressions in VB6. Just add a reference to

Microsoft VBScript Regular Expressions 5.5

[azcodemonkey]

Well, that should make things easy for you. I think it would be more robust than using the Like function.

[dayle]

actually i just need it in the a@a.com pattern if my faculty asks for a@a.co.in and stuff then ill just list them in a combobox or something like that :)