Revista Tecnología

Cómo Verificar las Direcciones de Correos Electrónicos

Publicado el 20 noviembre 2014 por Jorgeluis
En muchas ocasiones, cuando tenemos la necesidad de verificar o comprobar datos en Excel, usamos la herramienta de Validación de datos; sin embargo, para ciertos casos es limitada. ¿Como validar un correo electrónico en una celda de Excel? Paso 1: Entramos a Visual Basic Application (VBA) presionando las teclas ALT+F11 imagen0005 Cómo Verificar las Direcciones de Correos Electrónicos Paso 2: Hacemos clic en el menú Insertar / Módulo Paso 3: En la pantalla en blanco copiamos el siguiente código: Public Function blnEmailValid(ByVal strEmailAdd As String) As Boolean     With CreateObject(“VBScript.RegExp”)         .IgnoreCase = True         .Global = True         .Pattern = “^([a-zA-Z0-9_-.]+)@[a-z0-9-]+(.[a-z0-9-]+)*(.[a-z]{2,3})$”         blnEmailValid = .Test(strEmailAdd)     End With End Function Acabamos de crear una función que se llama blnEmailValid y que podremos utilizar en cualquier celda del Excel. Esta función esta verificando una Expresión regular que contiene un patrón establecido. Paso 4: Cerramos el VBA y regresamos en Excel. Paso 5: En la celda C2 escribimos un correo electrónico; y en D2 escribimos la función de la siguiente manera: = blnEmailValid(C2) Si el correo es correcto nos indica Verdadero, sino Falso validmail01 Cómo Verificar las Direcciones de Correos Electrónicos Eso es todo!!

Volver a la Portada de Logo Paperblog