If you can accept "Full Name <
[email protected]>", separated by commas,
then do this:
In the Custom View, select a contact, press cmd-A to select All.
Click "Add Group" button in the toolbar. Name the group, Save and close.
In the Address Book, select the new group. Do NOT open it. Press cmd-C (Copy).
In TextEdit or any text window anywhere, cmd-V (Paste).
Done.
(If you prefer to have the items separated by line endings, then instead of
copy-paste, just drag the group to the text window and drop.)
To get ONLY the default email address, you'd have to do it by script:
-------------------
set newFile to choose file name with prompt "Enter a name and location for the
text file:" default name "Email addresses.txt" default location (path to
desktop)
tell application "Microsoft Entourage"
set theContacts to (get the selection)
set eAddresses to {}
repeat with theContact in theContacts
try
set end of eAddresses to default email address of theContact
end try
end repeat
set AppleScript's text item delimiters to {","}
set eAddresses to eAddresses as string
set AppleScript's text item delimiters to {""}
end tell
try
close access newFile
end try
set f to open for access newFile with write permission
set eof f to 0
write eAddresses to f
close access f
tell application "TextEdit"
open newFile
activate
end tell
------------------------------------
If what you really meant was that you wanted the email addresses separated by
a comma and a space (, ) then add a following space in this line:
set AppleScript's text item delimiters to {","}
to read:
set AppleScript's text item delimiters to {", "}
If you don't want to open the file, remove the last 4 lines of the script. You
can also change the default name of the file in the first line.
