GetEmail ( text )

It grabs all the emails of a given generic text

Average rating: 4.4 (32 votes) Log in to vote

Daniele Raybaudi - Show more from this author
ACI
http://www.aci.it

Sample input:

GetEmail("my email is: raybaudi@libero.it and you can write something to me")

Sample output:

raybaudi@libero.it

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

/*
Author
Daniele Raybaudi
*/
Let([
adjustedText = Substitute ( text ; "¶" ; " " );
count = PatternCount ( adjustedText ; "@" );
len = Length ( adjustedText );
pos = Position ( adjustedText ; "@" ; 1 ; 1 );
startWord = Position ( adjustedText ; " " ; pos ; -1 ) + 1;
endWord = If ( Position ( adjustedText ; " " ; pos ; 1 ) ≠ 0 ; Position ( adjustedText ; " " ; pos ; 1 ) ; len + 1  );
word = Middle ( adjustedText ; startWord ; endWord - startWord );
nextText = Middle (adjustedText ; endWord + 1 ; len )
];
Case(
count ; word & "¶" & GetEmail ( nextText );
""
)
)

It grabs all the emails of a given generic text.
Recursive function.

Comments

		Antonio Pedrazzini, MÃ¼nchen Nov 3, 2010
Grazie Daniele! this works better than "ExtractEmails". Saluti, Antonio

		Tejas, India Apr 20, 2015
What should be done if we want to grab the body of the email also?

		John Jan 17, 2024
This function worked for me, but it left a carriage-return at the end of the returned text. I fixed it by wrapping a Substitute function around the last line that gets rid of the carriage return.

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

GetEmail ( text )

Comments

Support this website.

Support this website.