[thelist] email validation
James Counihan
James.Counihan at netdesk.com
Thu Apr 26 13:19:07 CDT 2001
works in Win2k, not NT:
' ------------------------ Check_Email ------------------------/
' called from Send_Email
Function Check_Email(testAddress)
Dim objRegExp
Set objRegExp = New RegExp
' do a pattern check for: a word, an @, a ., and a word
objRegExp.pattern = "\w+\@[.\w]+"
If objRegExp.Test(testAddress) Then
Check_Email = True
Else
Check_Email = False
End If
End Function
add a line to check Len(), if you need that.
<james />
James Counihan
Netdesk Corporation
601 Union Street, Suite 2700
Seattle, WA 98101
ph: 206.224.7690 x7698
fx: 206.622.8658
em: mailto:james.counihan at netdesk.com
More information about the thelist
mailing list