Autor Tema: Verificar dirección de correo electrónico  (Leído 531 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 184
Verificar dirección de correo electrónico
« en: Abril 14, 2012, 10:05:52 am »
Palabras clave: correo, mail, verificar
Autor: Rubén Vigón
Extraído de: La web del Búho

Objetivo
Para comprobar que una direccion MAIL es valida.

Código: [Seleccionar]
Public Function IsEmail(ByVal strEmail As String) As Boolean
Dim strTemp As String
If Not InStr(strEmail, "@") > 0 Then
IsEmail = False
Else
If Not InStr(strEmail, ".") > 0 Then
IsEmail = False
Else
If Not Len(Left(strEmail, InStr(strEmail, "@") - 1)) >= 3 Then
IsEmail = False
Else
strTemp = Mid(strEmail, InStr(strEmail, "@") + 1, Len(strEmail))
If Not Len(Left(strTemp, InStr(strTemp, ".") - 1)) >= 3 Then
IsEmail = False
Else
If Not Len(Right(strTemp, Len(strTemp) - InStr(strTemp, "."))) >= 2 Then
IsEmail = False
Else
IsEmail = True
End If
End If
End If
End If
End If
End Function