Re: I miss these scripts from OE

[Allen Watson]

Title: Re: I miss these scripts from OE

> From: Carsten & Uni Vous Ortmann <[EMAIL PROTECTED]>
> Reply-To: "Entourage:mac Talk" <[EMAIL PROTECTED]>
> Date: Sat, 04 Nov 2000 16:50:58 +0100
> To: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
> Subject: I miss these scripts from OE
>
> I love E'rage and the scripts that are already there for it. Only there a
> couple of scripts that I really miss, so gentle, generous, laborious and
> helpful scriptwizards; is it possible to maybe convert the following into
> E'rage:
>
> Find groups of contact

That's mine; I took a look at just changing the app name, and it does not work. This will take some time to convert, it seems. Be patient.

> Steal a sig

Someone else’s.
> E'rage to Word

Already exists; see "Entourage Many to Word v1" on my web site: <http://homepage.mac.com/allenwatson/>

Sorry, just realized I have not uploaded it yet; I will do so within the next hour or two.

> Groups subset

Easy to convert; just change the app name from OE to Microsoft Entourage. It's short, so here it is:

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
 
>
> I'm sure I'll think of more as time goes by, but hopefully you'll beat me to
> it, and if not I'll try asking again.
>

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