A work flow to extract email address from mail

Question

Can anyone help me. I have a bunch of emails that contain text information including an email address. I want a Automator workflow that will extract the email addresses from the emails and then save them as a comma separated text file.

Answer 1

Hi,
Try this workflow:
1) Get Selected Mail Items
2) Run AppleScript
In the "Run AppleScript", paste the following in:
on run {input, parameters}
set the output to {}
repeat with i from 1 to count of the input
set theMessage to item i of the input
set theContent to ""
tell application "Mail"
set theContent to the content of theMessage
end tell
if theContent is not equal to "" then
set output to (output & theContent)
end if
end repeat
return output
end run
3) Run Shell Script
In "Run Shell Script", select "/usr/bin/perl" in the shell popup and "to stdin" in the pass input popup. Then paste the following in:
$input = join("", );
@emails = ($input =~ /\b[A-Z0-9._%-]@[A-Z0-9.-]\.[A-Z]{2,4}\b/ig);
while( @emails > 1 ) {
print shift(@emails) . ", ";
print @emails[0];
4) New TextEdit Document
If you select the mail messages that have the email information in them, then you can run the workflow and hopefully it does the right thing.
Hope it helps!