• Home
 · 
• String Manipulation
 · 
• Email validating - made easy

Email validating - made easy

Email validating - made easy

API Declarations



Note: It valiadates given email-id using possible combinations like @.,.@,and the first letter of the mail-id should be alphabet and many more combinations.
It uses simple string handling functions like mid,instr etc.,
Easy to understand and plz feel free to email me.([email protected])







Rate Email validating - made easy

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

//paste this code and use it in your project


Private Sub cmdbutton_Click()
Dim str As String
Dim i As Integer
Dim pos1 As Integer
Dim pos2 As Integer
Dim diff As Integer


str = Trim(InputBox("Enter a mail id", "Email-Id"))
i = Len(str)
If i <> 0 Then
pos1 = InStr(1, str, "@")
pos2 = InStr(1, str, ".")
If pos1 <> 0 And pos2 <> 0 Then
 
   If pos1 < pos2 Then
    diff = pos2 - pos1
     
     If diff = 1 Then
     MsgBox "Invaid format", vbError + vbOKOnly, "Error"
     Exit Sub
     ElseIf pos2 = i Then
     MsgBox "Invaid format", vbError + vbOKOnly, "Error"
     Exit Sub
     End If
   
   
   If validate(str, i, pos1, pos2) = True Then
   MsgBox "valid email-id", vbInformation + vbOKOnly, "valid id"
   Exit Sub
   Else
   MsgBox "Invaid format", vbError + vbOKOnly, "Error"
   Exit Sub
   End If
   
  Else
  MsgBox "Invaid format", vbError + vbOKOnly, "Error"
  Exit Sub
  End If

Else
MsgBox "Invaid format", vbError + vbOKOnly, "Error"
Exit Sub
End If
End If
MsgBox "Enter a email-id", vbCritical + vbOKOnly, "emai-id"

End Sub

Private Function validate(str1 As String, ilen As Integer, ipos1 As Integer, ipos2 As Integer) As Boolean
validate = True
Dim fstr1 As String
Dim fstr2 As String
Dim fchr1 As String
Dim fstr3 As String
Dim fstr4 As String

Dim ascii As Integer
Dim ascii1 As Integer
Dim ascii2 As Integer
Dim ascii3 As Integer
Dim ascii4 As Integer




fstr1 = Mid(str1, ipos1 + 1, 1)
fstr2 = Mid(str1, ipos2 + 1, 1)
fchr1 = Mid(str1, 1, 1)
fstr3 = Mid(str1, ipos1 - 1, 1)
fstr4 = Mid(str1, ipos2 - 1, 1)

ascii = Asc(fchr1)
ascii1 = Asc(fstr1)
ascii2 = Asc(fstr2)
ascii3 = Asc(fstr3)
ascii4 = Asc(fstr4)


'check if the first character is '@'
If ipos1 = 1 Then
validate = False
Exit Function
End If

'check if the first character is '.'
If ipos2 = 1 Then
validate = False
Exit Function
End If

'check if the first character is an alphabhet
If Not (ascii >= 65 And ascii <= 122) Then
validate = False
Exit Function
End If

'check the previous character  to the @
If Not (ascii3 >= 48 And ascii3 <= 122) Then
validate = False
Exit Function
End If

'check the previous character  to the .
If Not (ascii4 >= 65 And ascii4 <= 122) Then
validate = False
Exit Function
End If


'check the next character to the @
If Not (ascii1 >= 65 And ascii1 <= 122) Then
validate = False
Exit Function
End If

'check the next character to the .
If Not (ascii2 >= 65 And ascii2 <= 122) Then
validate = False
Exit Function
End If

'check for the two subsequent '@'
If fstr1 = "@" Then
validate = False
Exit Function
End If

'checks for the two subsequent '.'
If fstr2 = "." Then
validate = False
Exit Function
End If


End Function