How do I copy only the emails from Address Book?

Question

I want to easily make and update a big email list.
With out doing them individually,
what's the best way to copy all of ONLY the emails from my contacts at once and put them in a text doc?

Answer 1

paste the following into Script Editor (it's in /Applications/Utilities)
<pre style="
font-family: Monaco, 'Courier New', Courier, monospace;
font-size: 10px;
margin: 0px;
padding: 5px;
border: 1px solid #000000;
width: 720px;
color: #000000;
background-color: #ADD8E6;
overflow: auto;"
title="this text can be pasted into the Script Editor">
tell application "Address Book"
set mlist to selection
repeat with per in mlist
repeat with eemail in emails of per
set curemail to value of eemail as text
if curemail is not equal to "" then do shell script " echo " & curemail & " >>~/desktop/ab.txt"
end repeat
end repeat
end tell</pre>
select the contacts you want in Address Book and press run in Script Editor. Emails will be exported to the file ab.txt on your desktop.