Re: Open contact to open a group?

[Allen Watson]

Title: Re: Open contact to open a group?

On or near 2/27/01 5:12 PM, Jan Martel at [EMAIL PROTECTED] observed:

> Is there any script like the "open contact" ones to open the window with an
> email group?

Oh, heck! It's easier to give it to you...


tell application "Microsoft Entourage"
    -- Select which group to open--
    set groupList to name of every group --
    set groupList to my sortList(groupList) --
    set theGroup to (choose from list groupList with prompt "Add sender to which group?" without multiple selections allowed) as text --
    open group theGroup --
end tell


on sortList(l)
    set testClass to class of item 1 of l
    repeat with j from 1 to count l
        if class of (item j of l) is not testClass then
            display dialog "Cannot sort lists of mixed class."
            error 128
        end if
    end repeat
    if length of l � 1 then return l
    set x to item 1 of l
    set ll to rest of l
    set l1 to {}
    set l2 to {}
    repeat with i in ll
        if x < i then
            set l2 to l2 & i
        else
            set l1 to l1 & i
        end if
    end repeat
    if length of l1 > 1 then set l1 to sortList(l1)
    if length of l2 > 1 then set l2 to sortList(l2)
    return l1 & x & l2
end sortList

--
Peace,
Allen Watson <[EMAIL PROTECTED]> XNS name: =Allen Watson
A Mac family since 1984 <http://home.earthlink.net/~allenwatson/>
Applescripts for Outlook Express and Entourage: <http://homepage.mac.com/allenwatson/>