GROUP WITH MULTIPLE EMAIL MEMBERS

Question

I have a group created whose members have multiple emails. I want to be able to type in the group name, and have ALL emails automatically inserted, not just one per group member.
HOW?

Answer 1

Okay... I spoke a little too soon.
It cuts off my emails at 50 when I have 77. I'll attach my Script. See what you can do.
property defaultGroups : {}
property defaultLabels : {}
-- Prompt for the group to use
tell application "Address Book" to set everyGroup to name of every group
if (count of everyGroup) is greater than 0 then
set theGroups to choose from list everyGroup with prompt ¬
"Send this message to which group?" default items defaultGroups with multiple selections allowed
end if
-- Prompt for message subject
set theResult to display dialog "What would you like the subject of the message to be?" default answer "I'm sending this via AppleScript!"
set theSubject to text returned of theResult
-- Prompt for whether an attachment is desired. If so, prompt for the location of the file.
set theResult to display dialog "Would you like to attach some files to this message?" buttons {"Yes", "No"} default button 1
set wantsAttachment to button returned of theResult
if wantsAttachment is equal to "Yes" then
set theAttachment to choose file
end if
-- Prompt for message body
set theResult to display dialog "What would you like to say in the body of the message?" default answer ""
set theBody to text returned of theResult
-- Go through each account and constuct a list of possible addresses
-- to use as a return address for this message.
tell application "Mail"
set listOfSenders to {}
set everyAccount to every account
repeat with eachAccount in everyAccount
set everyEmailAddress to email addresses of eachAccount
if (everyEmailAddress is not equal to missing value) then
repeat with eachEmailAddress in everyEmailAddress
set listOfSenders to listOfSenders & {(full name of eachAccount & " <"Which account would you like to send this message from?" without multiple selections allowed
if theResult is not equal to false then
set theSender to item 1 of theResult
tell application "Mail"
-- Properties can be specified in a record when creating the message or
-- afterwards by setting individual property values.
set newMessage to make new outgoing message with properties {subject:theSubject, content:theBody & return & return}
tell newMessage
-- Default is false. Determines whether the compose window will
-- show on the screen or whether it will happen in the background.
set visible to true
set sender to theSender
set theEmails to {}
tell application "Address Book"
repeat with aGroup in theGroups
repeat with aPerson in people of group aGroup
repeat with anEmail in emails of aPerson
if (label of anEmail is in defaultLabels) or defaultLabels is {} then
if theEmails does not contain the value of anEmail then
copy (value of anEmail) to end of theEmails
end if
end if
end repeat
end repeat
end repeat
end tell
repeat with anEmail in theEmails
make new to recipient at end of to recipients with properties {address:anEmail}
end repeat
tell content
if (wantsAttachment is equal to "Yes") then
-- Position must be specified for attachments
make new attachment with properties {file name:theAttachment} at after the last paragraph
end if
end tell
end tell
-- Bring the new compose window to the foreground, in all its glory
activate
end tell
end if