判断EMAIL地址是否合法
Private Function TestEmail(ByVal EmailAddress As String) As Boolean
Try
If EmailAddress <> "" Then
Dim EmailEegex As Regex : Dim Test As Match
EmailEegex = New Regex(("^([\w-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([\w-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"))
Test = EmailEegex.Match(EmailAddress)
If Test.Success Then
Return True
Else
Return False
End If
End If
Catch es As Exception
Trace.WriteLine("error at TestEmail" & es.ToString)
Return False
End Try
End Function