mpappert
Well-known member
Not really a question, just some code. A small thanks for all the help Ive gotten here, I figured I would post this in case someone else finds themselves needing an email verification routine .. 
M.
[VB]
Option Explicit On
Imports System.Text.RegularExpressions
Public Class IsValid
Public Function emailAddress(ByRef strEmailAddress As String) As Boolean
[MP] Returns True if the E-Mail Address is Valid (Matches Pattern)
strEmailAddress = Trim$(strEmailAddress)
Return Regex.IsMatch(strEmailAddress, "^[\w\.\-]+@[a-zA-Z0-9\-]+(\.[a-zA-Z0-9\-]{1,})*(\.[a-zA-Z]{2,3}){1,2}$")
End Function
End Class
[/VB]
M.
[VB]
Option Explicit On
Imports System.Text.RegularExpressions
Public Class IsValid
Public Function emailAddress(ByRef strEmailAddress As String) As Boolean
[MP] Returns True if the E-Mail Address is Valid (Matches Pattern)
strEmailAddress = Trim$(strEmailAddress)
Return Regex.IsMatch(strEmailAddress, "^[\w\.\-]+@[a-zA-Z0-9\-]+(\.[a-zA-Z0-9\-]{1,})*(\.[a-zA-Z]{2,3}){1,2}$")
End Function
End Class
[/VB]