Verificar la dirección de e-mail


Esta es una función muy interesante que verifica que la dirección de correo que se le pasa (la variable texto) sea correcta.

Para comprobar que el usuario introduce la dirección correctamente desde una página recomendamos que se compruebe desde Javascript para evitar los pasos de alante y atrás que hacen muy incomoda la navegación; sobre todo si esta en un formulario (algo común) y este se borra cada vez que hay un error.
Esta función es mas recomendable para la comprobación una vez introducidos los datos; por ejemplo comprobar las 'celdas mail' de una tabla.



Código:
<%
    'Copyright © 2002 McAnam.com
    
    Function mail(texto)

        texto=trim(texto)
        
        cadena = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890@.-_"
        
        punto = InStrRev(texto, ".")
        arroba = InStr(1, texto, "@", vbTextCompare)
        If (InStrRev(texto, "@") <> arroba) Then arroba = 0

        mail = True

        For contador = 1 To Len(texto)
            If InStr(1, cadena, Mid(texto, contador, 1), vbTextCompare) = 0 Then
                mail = False
                Exit For
            End If
        Next

        If punto <> 0 And arroba > 1 And (arroba + 1 < punto) And (punto + 1 < (Len(texto))) And mail = True And InStr(texto, "..") = 0 Then
            mail = True
        Else
            mail = False
        End If
        
    End Function
%>

Links relacionados:
Comprobar la dirección de e-mail desde Javascript


Para cualquier duda, consulta, sugerencia, opinión, colaboración, etc; no dude en ponerse en contacto con nosotros

Copyright © 2002-2017 [McAnam]. Reservados todos los derechos.
www.mcanam.com