[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