controllo email

[santino83_11_04]

mi dispiace ma sotto mano non ho quella che usa le regExp

'funzione per validare un indirizzo email (no regexp)
'Se Torna False la Mail è Valida
'Se torna True la Mail Non è valida
Function Valida_Email(Var_Email)
'Se Torna False la Mail è Valida
'Se torna True la Mail Non è valida

bolError = False

If len(Var_Email) < 10 Then
	bolError = True
ElseIf len(Var_Email) >= 10 Then	
	x = 1
	y = 0
	bolNotExt = False
	Do Until x = Len(Var_Email)
		If Mid(Var_Email,x,1) = "@" Then
			y = y + 1
		Else
			y = y
		End If
		x = x + 1
	Loop
	If Len(Mid(Var_Email,(InStrRev(Var_Email, ".") + 1),Len(Var_Email))) < 2 Then
  		bolNotExt = True
	End If  
	If y <> 1 Or bolNotExt Then
		bolError = True
	End If
End If
Valida_Email=bolError
END FUNCTION