Re: templates

[Bryan Harris]

Title: Re: templates

> From: "R. Scott Ohlgren" <[EMAIL PROTECTED]>
>
> Bryan, what a kind offer. Yes, that would be amazing to use, and also
> amazing to see how you do it.
>
> I have a folder "TEMPLATES" on the root level of the Folder List. I could
> have 3 subfolders, but for now I leave all my templates in this TEMPLATE
> folder.
>
> Need anything else? I sure wish there was a way to remove/move some of the
> 'permanent' folders in the Folder List, such as Calendar, Task; and also a
> way (a hack?) to customize the folder icons.
>


Here's a script that should do the trick.  You can drop any message in the TEMPLATES folder and it'll work.  (I'm sure someone more experienced than I can figure out how to choose messages from a list directly using their subjects rather than the search-back-through-them method I resorted to here.  No noticeable lag, but still not a method I'm proud of using...)

I don't have Entourage (still too pricey for me), so I can't try this out, but I hear there aren't any compatibility problems, so it should work fine.

Sorry, can't help you with moving permanent folders.  Changing icons might be possible using ResEdit, but you're treading thin ice there if you've never done it before.

- Bryan


****************************************************************************
Copy the following script into a Script Editor window,
then save into your Script Menu Items folder as a compiled script.
****************************************************************************


-- Open Template
-- script by Bryan Harris, [EMAIL PROTECTED], 30 October 2000

-- This script allows the user to select a template
-- from the "TEMPLATE" folder (at the root folder level).


tell application "Microsoft Entourage"
   
   activate
   
   with timeout of 600 seconds
       
       try
           set theMsgs to (every message of folder "TEMPLATES")
       on error
           display dialog "Can't find a \"TEMPLATES\" folder.  This script requires that there be a folder named \"TEMPLATES\" at the root folder level with messages in it to be used as templates." with icon stop
           return
       end try
       
       set theCount to count of theMsgs
       
       if theCount is 0 then
           display dialog "There are no templates in the \"TEMPLATES\" folder.  Please drag at least one message to that folder to use this script." with icon stop
           return
       end if
       
       set theSubs to {}
       
       repeat with theMsg in theMsgs
           set theSubs to theSubs & (subject of theMsg as string)
       end repeat
       
       set theTemp to (choose from list theSubs with prompt "Select a template:" without multiple selections allowed and empty selection allowed) as string
       
       set iFound to false
       set i to 0
       repeat until iFound
           set i to i + 1
           if i > theCount then
               display dialog "Script error 1.  Contact Bryan Harris ([EMAIL PROTECTED]) to report this." with icon stop
               return
           end if
           if (item i of theSubs) is theTemp then set iFound to true
       end repeat
       
       set theSubj to (subject of item i of theMsgs)
       set theCont to (content of item i of theMsgs)
       
       make new draft window with properties {subject:theSubj, content:theCont}
       
   end timeout
   
end tell