On 12/19/02 8:03 AM, "George Clark" <[EMAIL PROTECTED]> wrote:
> global acctlist
> set acctlist to {}
>
> tell application "Microsoft Entourage"
> set poplist to {}
> try
> set poplist to name of every POP account
> set acctlist to poplist
> end try
> set imaplist to {}
> try
> set imaplist to name of every IMAP account
> end try
> my addtolist(imaplist)
> set hotlist to {}
> try
> set hotlist to name of every Hotmail account
> end try
> my addtolist(hotlist)
> end tell
>
> set choice to choose from list acctlist with prompt "Select sending account"
>
> if choice is not false then
> set choice to item 1 of choice
> tell application "Microsoft Entourage"
> if choice is in poplist then
> set acct to POP account choice
> else if choice is in imaplist then
> set acct to IMAP account choice
> else
> set acct to Hotmail account choice
> end if
> make new draft window with properties {account:acct}
> end tell
> end if
>
> on addtolist(more)
> if more is not {} then
> if acctlist is {} then
> set acclist to more
> else
> set acctlist to acctlist & more
> end if
> end if
> end addtolist
GREAT script, George! :) I was actually wondering if such a script was
available.
--
To unsubscribe:
<mailto:[EMAIL PROTECTED]>
archives:
<http://www.mail-archive.com/entourage-talk%40lists.letterrip.com/>
old-archive:
<http://www.mail-archive.com/entourage-talk%40lists.boingo.com/>
