ValidEmail ( theEmail )

returns valid email or null

Average rating: 4.3 (30 votes) Log in to vote

Roger Biel
2Geckos Consulting, LLC
www.2geckos.com

Sample input:

this is my email 2Geckos

Sample output:

filemaker@2geckos.com

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*  ValidEmail( theEmail ) 
List of TLDs from http://data.iana.org/TLD/tlds-alpha-by-domain.txt
*/

Let ( [  

//  remove invalid charcters 
adjustedText = Substitute ( Lower( theEmail  ) ;["¶";" "];["<";" "];[">";" "];[":";" "];["\"";" "];["!";" "];["(";" "];["[";" "];["]";" "];[")";" "];["'";" "];["=";" "];["#";" "];["$";" "];["%";" "];["+";" "];["?";" "];["|";" "];["^";" "];["{";" "];["}";" "];["~";" "];
[ "postmaster@" ; " " ]  ;  [ "daemon@" ; " " ] ) ;

count = PatternCount ( adjustedText ; "@" );
len = Length ( adjustedText );
pos = Position ( adjustedText ; "@" ; 1 ; 1 );
startEmail = Position ( adjustedText ; " " ; pos ; -1 ) + 1;
endEmail  = If ( Position ( adjustedText ; " " ; pos ; 1 )  ≠  0 ; Position ( adjustedText ; " " ; pos ; 1 ) ; len + 1  );

EmailAddr = Middle ( adjustedText ; startEmail  ; endEmail  - startEmail  );
EmailAddr = If(  PatternCount ( EmailAddr ; "@" ) > 0 ; EmailAddr ; "" ) ;
EmailAddr = If(  Length( EmailAddr ) < 60 ; EmailAddr ; "" ) ;
nextText = Middle (adjustedText ; EmailAddr + 1 ; len );
nextText =  Substitute ( nextText ; EmailAddr ; " " );

    _validDomainCharacters = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-." ;
    _invalidLocalCharacters = "!\"#$%&'*,/:;<>?@[\]^`{}|~" ; // from http://www.remote.org/jochen/mail/info/chars.html
    _theLocalPart = Left ( EmailAddr ; Position ( EmailAddr ; "@" ; 1; 1 ) - 1 ) ;
    _theDomainPart =  Right ( EmailAddr ; Length ( EmailAddr ) - Position ( EmailAddr ; "@" ; 1; 1 )  ) ;
    _theTopLevelDomain = RightWords ( Substitute ( _theDomainPart ; "." ; " " ) ; 1 ) ;
    _ValidTopLevelDomains = "AC¶AD¶AE¶AERO¶AF¶AG¶AI¶AL¶AM¶AN¶AO¶AQ¶AR¶ARPA¶AS¶AT¶AU¶AW¶AZ¶BA¶BB¶BD¶BE¶BF¶BG¶BH¶BI¶BIZ¶BJ¶BM¶BN¶BO¶BR¶BS¶BT¶BV¶BW¶BY¶BZ¶CA¶CC¶CD¶CF¶CG¶CH¶CI¶CK¶CL¶CM¶CN¶CO¶COM¶COOP¶CR¶CU¶CV¶CX¶CY¶CZ¶DE¶DJ¶DK¶DM¶DO¶DZ¶EC¶EDU¶EE¶EG¶ER¶ES¶ET¶EU¶FI¶FJ¶FK¶FM¶FO¶FR¶GA¶GB¶GD¶GE¶GF¶GG¶GH¶GI¶GL¶GM¶GN¶GOV¶GP¶GQ¶GR¶GS¶GT¶GU¶GW¶GY¶HK¶HM¶HN¶HR¶HT¶HU¶ID¶IE¶IL¶IM¶IN¶INFO¶INT¶IO¶IQ¶IR¶IS¶IT¶JE¶JM¶JO¶JOBS¶JP¶KE¶KG¶KH¶KI¶KM¶KN¶KR¶KW¶KY¶KZ¶LA¶LB¶LC¶LI¶LK¶LR¶LS¶LT¶LU¶LV¶LY¶MA¶MC¶MD¶MG¶MH¶MIL¶MK¶ML¶MM¶MN¶MO¶MP¶MQ¶MR¶MS¶MT¶MU¶MUSEUM¶MV¶MW¶MX¶MY¶MZ¶NA¶NAME¶NC¶NE¶NET¶NF¶NG¶NI¶NL¶NO¶NP¶NR¶NU¶NZ¶OM¶ORG¶PA¶PE¶PF¶PG¶PH¶PK¶PL¶PM¶PN¶PR¶PRO¶PS¶PT¶PW¶PY¶QA¶RE¶RO¶RU¶RW¶SA¶SB¶SC¶SD¶SE¶SG¶SH¶SI¶SJ¶SK¶SL¶SM¶SN¶SO¶SR¶ST¶SU¶SV¶SY¶SZ¶TC¶TD¶TF¶TG¶TH¶TJ¶TK¶TL¶TM¶TN¶TO¶TP¶TR¶TRAVEL¶TT¶TV¶TW¶TZ¶UA¶UG¶UK¶UM¶US¶UY¶UZ¶VA¶VC¶VE¶VG¶VI¶VN¶VU¶WF¶WS¶YE¶YT¶YU¶ZA¶ZM¶ZW" ;

validemail =    Case (    IsEmpty ( theEmail ) ; ""  ; 
        IsEmpty ( EmailAddr ) ; "no e-mail address"  ;    
        PatternCount ( EmailAddr ; "@" ) <> 1 ; "invalid address" ; 
        PatternCount ( _theDomainPart ; "." ) = 0 ; "invalid formatting" ;
        Length ( Filter ( _theLocalPart ; _invalidLocalCharacters ) ) ;  "invalid characters in the local part" ;
        Length ( Filter ( _theDomainPart ; _validDomainCharacters ) ) <> Length ( _theDomainPart ) ;  "invalid characters in the domain part" ;
        Left ( _theLocalPart ; 1) = "." or
            Right ( _theLocalPart ; 1 ) = "." or
            Left ( _theDomainPart ; 1 ) = "." or
            Right ( _theDomainPart ; 1 ) = "." ;
            "invalid formatting" ;
       IsEmpty ( FilterValues ( _theTopLevelDomain ; _ValidTopLevelDomains ) ) ; "invalid top level domain" ;
       1  ) 
    ] ;

Case(  Left( theEmail ; 1 ) = ">" ;  theEmail ;
           IsEmpty( EmailAddr ) ; "" ;
           IsEmpty( theEmail ) ; "" ;
           validemail = 1 ; TextColor ( StripReserved ( EmailAddr )  ; RGB(0;0;255) ) ;


  ""  //  do NOT display is error

//  Display message on error
// TextStyleRemove(  TextColor ( StripReserved (   "> " & validemail  & ": " & EmailAddr ) ;  RGB(255;10 ;10 ) )  ; Bold )

)
)

This script is very useful to extract a valid e-mail address from text.

Comments

		Austin Burbridge, Los Angeles May 2, 2012
This wants the <stripReserved> function, which is not here! Also, this validEmail is required by validURL, which is not mentioned in the validURL post

		Roger Biel, Casa Grande, Arizona May 2, 2012
I've uploaded the stripReserved function, i thought i had already uploaded it.

		Keawe Wong, Toronto Jan 6, 2018
Awesome function! But the _ValidTopLevelDomains is many moons ago. Here is the more updated list: https://data.iana.org/TLD/tlds-alpha-by-domain.txt And here is the function to convert the list: Substitute ( $$TLDs ; [" "; Quote(Â¶)]; ["\"" ; "" ]) // put the top lebel domain list in $$TLDs

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

ValidEmail ( theEmail )

Comments

Support this website.

Support this website.