Extract all email adresses from text

[kreal]

The post by @ComplexPoint does the trick.

How to find all e-mail addresses in string/variable via regex?

And, of course, as alternatives to Perl, we could generalize the same kind of thing in AppleScript: -- uniqueSortedMatchesInText :: Regex -> String -> [String] on uniqueSortedMatchesInText(rgx, s) sort(nub(map(my headDef, regexMatches(rgx, s)))) end uniqueSortedMatchesInText or in JavaScript for Automation: // uniqueSortedMatchesInText :: Regex -> String -> [String] const uniqueSortedMatchesInText = (rgx, s) => sort(nub(map(headDef, regexMatches(rgx, s)))); All emails in selected tex…

@JMichaelTX's option also works
@ccstone Your script works perfectly, also i noticed that it can remove duplicates!

Guys, thanks a lot for the help!

One more thing - How can i count founded emails in a variable?
@ccstone @JMichaelTX