Esta função é muito útil na validação de endereços do E-mail passado por parâmetro.
A função verifica se o E-mail está digitado no formato correto utilizando Expressão Regular.
<%
'-----------------------------------------------------
'Funcao: IsEmail(ByVal strEmail)
'Sinopse: Verifica se o valor passado é um Email válido
'Parametro: strEmail
'Retorno: Booleano
'Autor: Gabriel Fróes - www.codigofonte.com.br
'-----------------------------------------------------
Function IsEmail(ByVal strEmail)
Dim regEx
Dim ResultadoHum
Dim ResultadoDois
Dim ResultadoTres
Set regEx = New RegExp ' Cria o Objeto Expressão
regEx.IgnoreCase = True ' Sensitivo ou não
regEx.Global = True ' Não sei exatamente o que faz
' Caracteres Excluidos
regEx.Pattern = "[^@-.w]|^[[email protected]]|[._-]{2}|[@.]{2}|(@)[^@]*1"
ResultadoHum = RegEx.Test(strEmail)
' Caracteres validos
regEx.Pattern = "@[w-]+."
ResultadoDois = RegEx.Test(strEmail)
' Caracteres de fim
regEx.Pattern = ".[a-zA-Z]{2,3}$"
ResultadoTres = RegEx.Test(strEmail)
Set regEx = Nothing
If Not (ResultadoHum) And ResultadoDois And ResultadoTres Then
IsEmail = True
Else
IsEmail = False
End If
End Function
'EXEMPLO DE CHAMADA
Response.Write IsEmail("[email protected]")
%>
