Re: How do I include ALL addresses in Group?

[Allen Watson]

Title: Re: How do I include ALL addresses in Group?

On or near 7/4/02 6:46 PM, Mark Benton at [EMAIL PROTECTED] observed:

> Greetings,
>
> I'm trying to send a message to a group of my business contacts (about 200
> or so). I have them in a category and have made a Group in Entourage.
> However, when I add the the contacts to the group, it only adds the Default
> e-mail address. I would like to send to all e-mail address for each contact.
> How can I do that? Thanks.
>
This will do it one contact at a time. Assign it a keyboard shortcut if you wish (see help on the Script Menu if you don't know how).

Select a contact. Run the script. Choose a group from the list presented. (The script will remember what group you choose and present that as default choice in subsequent runs.)

property lastItem : ""
--Add every email of selected contact to a group; assign to kbd shortcut
tell application "Microsoft Entourage"
    try
        set theSelection to get selection -- may be none
        if class of theSelection � list or (count theSelection) � 1 or class of item 1 of theSelection � contact then error number -128
    on error
        beep
        display dialog "You must select just one contact in the address book." buttons {"OK"} default button "OK" with icon 2
        return
    end try
    set theGroups to name of every group
    activate
    set theContact to item 1 of theSelection
    set theName to name of theContact
    set allAddrs to every email address of theContact
    set theGroup to choose from list theGroups with prompt "Add " & theName & "'s addresses to what group?" default items {lastItem}
    set lastItem to item 1 of theGroup
    set theGroup to lastItem
    repeat with i from 1 to (count allAddrs)
        set X to item i of allAddrs
        set newEntry to make new group entry of group theGroup with properties {content:X} --
    end repeat
    open group theGroup
end tell

--
My web page: <http://home.earthlink.net/~allenwatson/>
My scripts page: <http:homepage.mac.com/allenwatson>
Microsoft MVP for Mac Entourage/Word--<[EMAIL PROTECTED]>