Validad formato del Mail en un Txt - VB-MUNDO

AngelGod · #1 (**permalink**) 16-12-2006, 02:13:24

Hola Camaradas .

les platico que valide en un txt para que solo aceptara números pero ahora se me ocurrio que la hora de que el usuario escriera su mail en un txt el sistema lo obligara a escribir correctamente el formato de un mail.
espero que puedan darme sus opiniones !!!

Thanks!!!

Dios Les Bendiga.

J.M.Movilla · #2 (**permalink**) 16-12-2006, 09:02:13

Sólo tienes que exigir que el texto contenga el carácter "@", y el carácter "." en una posición posterior.

Código:

If Trim(Text1.Text) = "" Then Exit Sub
n = InStr(Text1.Text, "@") 
If n = 0 Then
    msgbox("Introduzca correctamente la dirección de correo.")
    Text1.SetFocus
    Exit Sub
End If
If InStr(n + 1, Text1.Text, ".") = 0 Then
    msgbox("Introduzca correctamente la dirección de correo.")
    Text1.SetFocus
    Exit Sub
End If