Title: New message to Group Subset (script)
Someone was asking how to send a message to a subset of a group, and was answered with the control-click to expand the group, then removing names.

For OE I wrote a script, "Group Subset", that let you select a group from a popup list, and then popped up a list of group members and let you deselect the ones you wanted to omit. It then creates a new message addressed to only those people. It had a flaw; it displayed blank lines for people who were in the list by address only.

Here is that script, adapted for Microsoft Entourage and improved to display both name and E-mail address.

tell application "Microsoft Entourage"
    activate
    set theGroups to name of groups
    choose from list theGroups with prompt "Choose a group to email:" without multiple selections allowed
    set theGroup to item 1 of result
    set theUsers to (display name of content of group entries of group theGroup)
    set theAddresses to (address of content of group entries of group theGroup)
    set theMenu to {}
    repeat with i from 1 to count theUsers
        copy {"\"" & item i of theUsers & "\" " & item i of theAddresses} to the end of theMenu
    end repeat
    choose from list theMenu default items theMenu with prompt "Hold Command key and deselect addressees:" with multiple selections allowed
    set toUse to result
    repeat with i from 1 to count toUse
        set item i of toUse to (item i of toUse) as string
    end repeat
    set theMsg to make new outgoing message at out box folder with properties {recipient:toUse}
    open theMsg
end tell

TO USE THIS OR ANY SCRIPT POSTED HERE:

  1. Copy the script to the Script Editor application.
  2. Save it in Entourage Script Menu Items folder (in Documents>Microsoft User Data folder, most likely). Give it a meaningful name like “New to Group subset”
  3. To give it a shortcut, append a suffix to the name, starting with back slash (\) followed by lowercase c for control, o for option, s for shift, and m for command, and a capital letter or digit.
  4. Now use the script from the menu


--
Peace,
Allen Watson <[EMAIL PROTECTED]> XNS name: =Allen Watson
A Mac family since 1984
My web page: <http://home.earthlink.net/~allenwatson/>

Reply via email to