邮件代码检测

邮件代码检测

Function CheckMail(paR_strEMail)

 If paR_strEMail ="" Then
  CheckMail =False
  Exit Function
 End If
 CheckMail =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}$"
  CheckMail =rep.Test(paR_strEMail)
 Set Rep =Nothing
 If Len(paR_strEMail) >50 Then CheckMail =False

End Function

调用方法：

if CheckMail（tech@e8esky.com）then call javamsg ('邮件地址正确',2)

if CheckMail（tech#e8esky.com）then call javamsg ('邮件地址错误即将返回',1)