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