Check for bad email address

Function ScriptedField
	Dim regEx, retVal
	dim res

	Set regEx = New RegExp
	res = "[{""email_address"":""@@ORG:email@@""}]"

	' Create regular expression:
	regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$"	

	' Set pattern:
	regEx.IgnoreCase = true

	' Set case sensitivity.
	If "@@ORG:email@@" <> "" Then
		retVal = regEx.Test("@@ORG:email@@")
		If retVal = False Then
			LogMessage "Error: Bad Email Address.  Email:@@ORG:email@@; SeedwareID:@@ORG:seedware_id@@; AccountName:@@ORG:account_name@@"
		End If	
	End If
	
	ScriptedField=res
End Function