Re: Add contact to group

[Allen Watson]

Title: Re: Add contact to group

On or near 3/28/02 11:03 AM, Dirk Heinze at [EMAIL PROTECTED] observed:

> Hello again,
>
> I wonder if I can also add an open contact to a group (Entourage 2001).
> The script "Add sender to group E v2" in the Applescriptcenter is similar,
> but not the exact thing I'm looking for.
>
There are many ways to do this without a script, so I've never felt the need of one.


1. Open the Address Book and sort on the little "person" icon column so that groups (which have a different icon) sort together. Open the group you want to add to. Then, open the contact you want; drag the person icon (from the title bar, not from the main part of the window) into the group window. Done.

2. Open the group, click the Add button; type the contact name. You get the same address completion you get when addressing a message.

However, this will do it if you have a contact record open in front:

tell application "Microsoft Entourage"
    set Con to the name of the front window
    try
        set Conrec to contact Con
    on error
        display dialog "You must have a contact record open and in front."
        return
    end try
    set names to name of every group
    set target to choose from list names with prompt "Add contact " & Con & " to which group?"
    if target is false then return
    set target to item 1 of target
    display dialog target
    make new group entry of group target with properties {content:Conrec}
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]>