-
Hi
Can anyone think of a quick and dirty email address validater(for example, if the @ is missing or .com or whatever is missing at the end)?
I've written a quite lengthy routine to do it and am wondering if anyone has a shorter way to do it.
Thanks alot!
------------------
CompuGEEK
-
Something like:
Code:
Text1 = Trim(Text1)
If InStr(Text1, "@") = 0 Or InStr(Text1, ".") = 0 Or InStr("@.", Left$(Text1, 1)) > 0 Or InStr("@.", Right$(Text1, 1)) Then
MsgBox "Invalid Email"
End If
Aside from that you could strip out the Domain and Ping its Mail Server to verify the Domain is Valid.
------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]