Your Ad Here
1
2
3
4
5
6
7
$input=InputBox("Email","inserisci quì l'email")

If StringRegExp($input,"([a-z]+)\@([a-z]+)\.([a-z]{2,4})$",0) Then	
   MsgBox(0,"esatto","L'email inserita è giusta")
Else
	MsgBox(0,"Sbagliato","L'email inserita non è corretta.")
EndIf

Sistema per verificare se una mail è corretta con regex by Red Skull92