controllo email

[gant85]

ciao a tutti... è possibile fare un controllo su un campo x riconoscere se l'utente ha inserito un email invece di una scritta normale?

[yro]

'REG EXP PER VALIDARE GLI INDIRIZZI MAIL--------------
function check_email(strng)
	'Creazione della Regular Expression 
	dim regEx
	Set regEx = New RegExp

	'Definizione del pattern di validazione
	regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$"

	'Ignoro maiuscole e minuscole nell'indirizzo email
	regEx.IgnoreCase = True
	
	'TRUE se l'email è valida
	check_email = regEx.Test(strng)
end function
'---------------------------------------------------