主题：请教邮箱

大师：请问如何用代码对输入的邮箱进行形式性合规判断？

Dim str As String = "123@789.eee"
Dim reg As new System.Text.RegularExpressions.Regex("^(\w)+(\.\w+)*@(\w)+((\.\w{2,3}){1,3})$")
If reg.Ismatch(str) = True Then
    msgbox("匹配")
End If

谢谢！服务器地址pop.mail.yahoo.com.cn的判断又怎么写？

3楼什么意思？

 

Dim str As String = "popmail@yahoo.com.cn"
Dim reg As new System.Text.RegularExpressions.Regex("^[a-z0-9]+([._\\-]*[a-z0-9])*@([a-z0-9]+[-a-z0-9]*[a-z0-9]+.){1,63}[a-z0-9]+$")
If reg.Ismatch(str) = True Then
    msgbox("匹配")
Else
    msgbox("不匹配")
End If