发布网友 发布时间:2024-10-21 04:03
共2个回答
热心网友 时间:2024-10-21 10:21
补充下吧,就楼上的函数进行使用说明:
if IsValidEmail(你的邮箱变量) then
邮箱格式正确,下一步操作。。
else
邮箱不合格返回
end if
热心网友 时间:2024-10-21 10:21
正则:
Function IsValidEmail(email)
IsValidEmail=true
Dim Rep
Set Rep = new RegExp
rep.pattern="^([\.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(\.([a-zA-Z0-9]){2,}){1,4}$"
pass=rep.Test(email)
Set Rep=Nothing
If not pass Then IsValidEmail=false
End function
调用这个函数就可以了