validar correo

Para comprobar si el correo existe, no es posible por tu parte, es cosa de el servidor de correo, lo que si puedes hacer es comprobar que el correo contiene las palabras clave de un email, como son una palabra de minimo una letra, luego un @ luego otra palabra, luego un punto y por ultimo otra palabra

palabra @palabra.palabra

uno facil seria que busque solo si contiene un @ y si contiene un punto despues de la @ y si lo tiene lo das como correcto.

El codigo seria:

Dim pos_arroba As Integer
Dim pos_punto As Integer

pos_arroba = InStr(2, Text1.Text, " @")
' Buscamos un arroba en la caja de texto, a partir del 2 caracter
' Si la encuentra, pos_arroba > 0 entonces busca si hay un punto despues de la arroba y despues del primer caracter detras de la arroba
If pos_arroba > 0 Then pos_punto = InStr(pos_arroba + 2, Text1.Text, ".")
' si encuentra un punto y no es el ultimo caracter lo valida si no no
If pos_punto > 0 And pos_punto < Len(Text1.Text) Then
MsgBox "Correo valido"
' iria el resto del codigo
Else
MsgBox "Correo no valido"
' iria el resto del codigo
End If

Saludos

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Octubre 13, 2008, 08:55:06