Check Email Syntax

[rexjc]

anybody see a Custom function for checking correct email format?

[Ender]

What do you mean by "correct email format"? You mean the address? Is this a validation function you're looking for?

[rexjc]

By a Calculation, Show if any unwanted Type in the email field

This is what the Field Does now:

Case(

Realtors::eMail to Send < 1; TextColor ( "Bad Syntax: empty" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "," ); TextColor ( "Bad Syntax: [ , ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "$" ); TextColor ( "Bad Syntax: [ $ ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "%" ); TextColor ( "Bad Syntax: [ % ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "^" ); TextColor ( "Bad Syntax: [ ^ ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "&" ); TextColor ( "Bad Syntax: [ & ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "*" ); TextColor ( "Bad Syntax: [ * ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "(" ); TextColor ( "Bad Syntax: [ ( ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; ")" ); TextColor ( "Bad Syntax: [ ) ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "&" ); TextColor ( "Bad Syntax: [ & ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "+" ); TextColor ( "Bad Syntax: [ + ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; ":" ); TextColor ( "Bad Syntax: [ : ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "@" ) > 1; TextColor ( "Bad Syntax: 2 [ @ ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "@" ) < 1; TextColor ( "Bad Syntax: No [ @ ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; " " ); TextColor ( "Bad Syntax: [ Space ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "/" ); TextColor ( "Bad Syntax: [ / ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "!" ); TextColor ( "Bad Syntax: [ ! ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "=" ); TextColor ( "Bad Syntax: [ = ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "[" ); TextColor ( "Bad Syntax: [ [ ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "]" ); TextColor ( "Bad Syntax: [ ] ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; ";" ); TextColor ( "Bad Syntax: [ ; ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; "<" ); TextColor ( "Bad Syntax: [ < ] found" ; RGB ( 255 ; 0 ; 0 ) );

PatternCount(Realtors::eMail to Send ; ">" ); TextColor ( "Bad Syntax: [ > ] found" ; RGB ( 255 ; 0 ; 0 ) );

Realtors::eMail to Send > 1; TextColor ( "Syntax OK" ; RGB ( 0 ; 255 ; 0 ) );

)

[Raybaudi]

Hi,

try this:

Let([

@ = PatternCount ( eMail To Send ; "@" );

BadChars = Filter ( ",$%^&*()+: /!=[];<>" ; eMail To Send )

]; 

Case

(

eMail To Send = "";"";

@ < 1;TextColor ( "Bad Syntax: No [ @ ] found" ; RGB ( 255 ; 0 ; 0 ) );

@ > 1;TextColor ( "Bad Syntax: More than 1 [ @ ] found" ; RGB ( 255 ; 0 ; 0 ) );

Length ( BadChars );TextColor ( "Bad Syntax: [ " & BadChars & " ] found" ; RGB ( 255 ; 0 ; 0 ) );

TextColor ( "Syntax OK" ; RGB ( 0 ; 255 ; 0 ))

)

)