01-18-2005 10:56 AM
chris
VB6 Code to Validate Email Address
Esta función permite validar un correo electrónico en Microsoft Visual Basic 6 SP5.
| 1 | Public Function IsValidEmail(strEmail As String) As Boolean |
| 2 | Dim names, name, i, c |
| 3 | IsValidEmail = True |
| 4 | |
| 5 | names = Split(strEmail, "@") |
| 6 | |
| 7 | If UBound(names) <> 1 Then |
| 8 | IsValidEmail = False |
| 9 | Exit Function |
| 10 | End If |
| 11 | |
| 12 | For Each name In names |
| 13 | |
| 14 | If Len(name) <= 0 Then |
| 15 | IsValidEmail = False |
| 16 | Exit Function |
| 17 | End If |
| 18 | |
| 19 | For i = 1 To Len(name) |
| 20 | c = LCase(Mid(name, i, 1)) |
| 21 | |
| 22 | If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then |
| 23 | IsValidEmail = False |
| 24 | Exit Function |
| 25 | End If |
| 26 | Next |
| 27 | |
| 28 | If Left(name, 1) = "." Or Right(name, 1) = "." Then |
| 29 | IsValidEmail = False |
| 30 | Exit Function |
| 31 | End If |
| 32 | |
| 33 | Next |
| 34 | |
| 35 | If InStr(names(1), ".") <= 0 Then |
| 36 | IsValidEmail = False |
| 37 | Exit Function |
| 38 | End If |
| 39 | |
| 40 | i = Len(names(1)) - InStrRev(names(1), ".") |
| 41 | |
| 42 | If i <> 2 And i <> 3 Then |
| 43 | IsValidEmail = False |
| 44 | Exit Function |
| 45 | End If |
| 46 | |
| 47 | If InStr(strEmail, "..") > 0 Then |
| 48 | IsValidEmail = False |
| 49 | Exit Function |
| 50 | End If |
| 51 | |
| 52 | End Function |
Ya en el código fuente de tu app mandas a llamar la función de la siguiente manera:
| 1 | Private Sub Text1_LostFocus() |
| 2 | Dim Valid_Email As Boolean |
| 3 | |
| 4 | Valid_Email = IsValidEmail(Text1.Text ) |
| 5 | |
| 6 | If Valid_Email = False Then 'If the variable is false |
| 7 | 'Message the user to enter appropriate Email address |
| 8 | MsgBox "Please enter a valid Email address", vbInformation, "Error" |
| 9 | Text1.SetFocus 'Set focus back to control |
| 10 | End If |
| 11 | |
| 12 | End Sub |
O bien podría tambien ser en el evento Text1_Validate pero para efectos de demo, lo dejamos así.
Cheers! xD
Filed under: .NET Code