asp电子邮件地址格式判断函数

最新推荐文章于 2017-06-10 21:44:00 发布

lvlingwy

最新推荐文章于 2017-06-10 21:44:00 发布

阅读量2.7k

点赞数

分类专栏： asp技术文章标签： asp email function

本文链接：https://blog.youkuaiyun.com/lvlingwy/article/details/1631328

版权

asp技术专栏收录该内容

50 篇文章

订阅专栏

本文介绍了一个用于验证电子邮件地址格式是否正确的VBA函数。该函数通过检查邮件地址中是否包含@符号和至少一个.符号，并确保特殊字符不在允许范围内来判断其有效性。此外，还对用户名和域名部分进行了进一步的检查。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Function IsValidEmail(Email)
ValidFlag = False
If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
atCount = 0
SpecialFlag = False
For atLoop = 1 To Len(Email)
atChr = Mid(Email, atLoop, 1)
If atChr = "@" Then atCount = atCount + 1
If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
Next
If (atCount = 1) And (SpecialFlag = False) Then
BadFlag = False
tAry1 = Split(Email, "@")
UserName = tAry1(0)
DomainName = tAry1(1)
If (UserName = "") Or (DomainName = "") Then BadFlag = True
If Mid(DomainName, 1, 1) = "." then BadFlag = True
If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True
ValidFlag = True
' 格式正确返回Ture
End If
End If
If BadFlag = True Then ValidFlag = False
' 格式不正确返回False
IsValidEmail = ValidFlag
End Function