代码如下:‘******************************************** ‘函数名：IsValidEmail ‘作 用：检查Email地址合法性 ‘参 数：email —-要检查的Email地址 ‘返回值：True —-Email地址合法 ‘ False —-Email地址不合法 ‘******************************************** Public Function IsValidEmail(Email) Dim names, name, I, c IsValidEmail = True names = Split(Email,
