reg exp mail

Använder nedanstående reg exp för att vaildera mail
^[^ ]+@[^ ]+\.[A-Za-z]+$

Går det att komplettera denna så att texboxen kan vara tom eller så måste den innehålla korrekt mailadress?

Jag har använt mig utav följande i liknande situation:

[red]Function IsValidEmail(strEmail)
	Dim objRegExp
	Set objRegExp = New RegExp
		objRegExp.IgnoreCase = True
		objRegExp.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
		IsValidEmail = objRegExp.Test(strEmail)
	Set objRegExp = Nothing
End function

...

strTxtEmail = Request.Form("yourTextField")

If IsValidEmail(strTxtEmail) OR Len(strTxtEmail) = 0 Then
	'Ingen mailadress alls, eller så är den ok
Else
	'Mailadressen är inte korrekt utformad
End If[/red]