OS 10.3.4
Office 2004

Re: Keyboard shortcut for making new subfolders? by Paul

Paul
Sat Aug 21 17:12:11 CDT 2004

On 8/21/04 2:02 PM, in article BD4D067C.3AB2%studiok4485@hotmail.com, "kevs"
<studiok4485@hotmail.com> wrote:

>
> OS 10.3.4
> Office 2004


Would you please put your questions into the body of the message? Thank you.

In 10.3.x, go to System Preferences/Keyboard & Mouse/Keyboard Shortcuts.

At the bottom of the list, click Application Shortcuts and click the + box.
Switch the popup to Entourage.
Type 'Subfolder' (no quotes).
Press the keys you want for the shortcut.


It will only work when Subfolder is enabled (not dimmed) as a submenu item
of File/New. That only happens when you click on a Folder in the Folders
pane to make it the focus.

--
Paul Berkowitz
MVP MacOffice
Entourage FAQ Page: <http://www.entourage.mvps.org/faq/index.html>
AppleScripts for Entourage: <http://macscripter.net/scriptbuilders/>

Please "Reply To Newsgroup" to reply to this message. Emails will be
ignored.

PLEASE always state which version of Microsoft Office you are using -
**2004**, X or 2001. It's often impossible to answer your questions
otherwise.


Re: Keyboard shortcut for making new subfolders? by kevs

kevs
Sun Aug 22 16:15:28 CDT 2004

On 8/21/04 3:12 PM, in article BD4D16CB.708B3%berkowit@spoof_silcom.com,
"Paul Berkowitz" <berkowit@spoof_silcom.com> wrote:

> Would you please put your questions into the body of the message? Thank you.
>
> In 10.3.x, go to System Preferences/Keyboard & Mouse/Keyboard Shortcuts.
>
> At the bottom of the list, click Application Shortcuts and click the + box.
> Switch the popup to Entourage.
> Type 'Subfolder' (no quotes).
> Press the keys you want for the shortcut.
>
>
> It will only work when Subfolder is enabled (not dimmed) as a submenu item
> of File/New. That only happens when you click on a Folder in the Folders
> pane to make it the focus.
Thanks Paul;
Great info. I've entered in Subfolder and tried it with several keystrokes.
Just does not seem to work.

OS 10.3.4
Office 2004



Re: Keyboard shortcut for making new subfolders? by kevs

kevs
Sun Aug 22 16:18:30 CDT 2004

Thanks Paul
I did a search and could not find it. Could you please tell me how to
navigate to it? That site is very difficult to find stuff for the layman.




On 8/21/04 3:12 PM, in article BD4D16CB.708B3%berkowit@spoof_silcom.com,
"Paul Berkowitz" <berkowit@spoof_silcom.com> wrote:

> On 8/21/04 2:02 PM, in article BD4D067C.3AB2%studiok4485@hotmail.com, "kevs"
> <studiok4485@hotmail.com> wrote:
>
>>
>> OS 10.3.4
>> Office 2004
>
>
> Would you please put your questions into the body of the message? Thank you.
>
> In 10.3.x, go to System Preferences/Keyboard & Mouse/Keyboard Shortcuts.
>
> At the bottom of the list, click Application Shortcuts and click the + box.
> Switch the popup to Entourage.
> Type 'Subfolder' (no quotes).
> Press the keys you want for the shortcut.
>
>
> It will only work when Subfolder is enabled (not dimmed) as a submenu item
> of File/New. That only happens when you click on a Folder in the Folders
> pane to make it the focus.

OS 10.3.4
Office 2004



Re: Keyboard shortcut for making new subfolders? by Paul

Paul
Sun Aug 22 17:09:06 CDT 2004

> This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

--B_3176032146_11259091
Content-type: text/plain;
charset="ISO-8859-1"
Content-transfer-encoding: 8bit

Which site do you mean? I didn't link or refer to a site. Do you mean in my
signature, which you didn't quote? Both links work.

In your message a few minutes earlier you said you found the right place for
keyboard shortcuts in Panther but that it didn't work for Subfolder. I'll
try it myself now.

You're right: it doesn't work at all. I've seen this sometimes, but not
always, with submenu items.

Here's a script that will do it. If you make it in Script Editor
(/Applications/AppleScript/Script Editor), save as script in
~/Documents/Microsoft User Data/Entourage Script Menu Items/ folder, saving
it as

New Subfolder \scN

you'll be able to run it via shift-control-N. To use a different keyboard
shortcut , see the "About the script menu" in Entourage Help.

In order for the final bit of the script to work (it selects the folder to
let you type the folder name) first go now to System Preferences/Universal
Access, and check "Enable for assistive devices".

tell application "Microsoft Entourage"
activate
try
set theFolder to displayed feature of main window
if class of theFolder ? folder then error number -128
on error
beep
display dialog "First you must select a folder in teh Folders pane."
buttons {"Cancel"} default button 1 with icon 0
end try
set newFolder to make new folder at theFolder
set displayed feature of main window to newFolder
end tell

tell application "System Events"
tell process "Microsoft Entourage"
keystroke (ASCII character 3)
end tell
end tell


I find it a sluggish myself. It seems to be the part of selecting the new
folder that takes a while. So here's an alternate method I find much faster:
you enter the name of the new folder in a dialog. Then the script just makes
it without selecting it. Personally I think this is better:



tell application "Microsoft Entourage"
activate
try
set theFolder to displayed feature of main window
if class of theFolder ? folder then error number -128
on error
beep
display dialog "First you must select a folder in teh Folders pane."
buttons {"Cancel"} default button 1 with icon 0
end try
display dialog "Enter a name for the new subfolder:" default answer
"untitled folder" with icon 1
set newName to text returned of result
make new folder at theFolder with properties {name:newName}
end tell




--
Paul Berkowitz
MVP MacOffice
Entourage FAQ Page: <http://www.entourage.mvps.org/faq/index.html>
AppleScripts for Entourage: <http://macscripter.net/scriptbuilders/>

Please "Reply To Newsgroup" to reply to this message. Emails will be
ignored.

PLEASE always state which version of Microsoft Office you are using -
**2004**, X or 2001. It's often impossible to answer your questions
otherwise.


> From: kevs <studiok4485@hotmail.com>
> Newsgroups: microsoft.public.mac.office.entourage
> Date: Sun, 22 Aug 2004 14:18:30 -0700
> Subject: Re: Keyboard shortcut for making new subfolders?
>
> Thanks Paul
> I did a search and could not find it. Could you please tell me how to
> navigate to it? That site is very difficult to find stuff for the layman.
>
>
>
>
> On 8/21/04 3:12 PM, in article BD4D16CB.708B3%berkowit@spoof_silcom.com,
> "Paul Berkowitz" <berkowit@spoof_silcom.com> wrote:
>
>> On 8/21/04 2:02 PM, in article BD4D067C.3AB2%studiok4485@hotmail.com, "kevs"
>> <studiok4485@hotmail.com> wrote:
>>
>>>
>>> OS 10.3.4
>>> Office 2004
>>
>>
>> Would you please put your questions into the body of the message? Thank you.
>>
>> In 10.3.x, go to System Preferences/Keyboard & Mouse/Keyboard Shortcuts.
>>
>> At the bottom of the list, click Application Shortcuts and click the + box.
>> Switch the popup to Entourage.
>> Type 'Subfolder' (no quotes).
>> Press the keys you want for the shortcut.
>>
>>
>> It will only work when Subfolder is enabled (not dimmed) as a submenu item
>> of File/New. That only happens when you click on a Folder in the Folders
>> pane to make it the focus.
>
> OS 10.3.4
> Office 2004
>
>


--B_3176032146_11259091
Content-type: text/html;
charset="ISO-8859-1"
Content-transfer-encoding: quoted-printable

<HTML>
<HEAD>
<TITLE>Re: Keyboard shortcut for making new subfolders?</TITLE>
</HEAD>
<BODY>
<FONT FACE=3D"Verdana, Helvetica, Arial"><SPAN STYLE=3D'font-size:12.0px'>Which=
site do you mean? I didn't link or refer to a site. Do you mean in my signa=
ture, which you didn't quote? Both links work.<BR>
<BR>
In your message a few minutes earlier you said you found the right place fo=
r keyboard shortcuts in Panther but that it didn't work for Subfolder. I'll =
try it myself now.<BR>
<BR>
You're right: it doesn't work at all. I've seen this sometimes, but not alw=
ays, with submenu items.<BR>
<BR>
Here's a script that will do it. If you make it in Script Editor (/Applicat=
ions/AppleScript/Script Editor), save as script in ~/Documents/Microsoft Use=
r Data/Entourage Script Menu Items/ folder, saving it as <BR>
<BR>
&nbsp;&nbsp;&nbsp;&nbsp;New Subfolder \scN<BR>
<BR>
you'll be able to run it via shift-control-N. To use a different keyboard s=
hortcut , see the &quot;About the script menu&quot; in Entourage Help.<BR>
<BR>
In order for the final bit of the script to work (it selects the folder to =
let you type the folder name) first go now to &nbsp;System Preferences/Unive=
rsal Access, and check &quot;Enable for assistive devices&quot;.<BR>
<BR>
<FONT COLOR=3D"#0000FF"><B>tell</B></FONT> <FONT COLOR=3D"#0000FF">application<=
/FONT> &quot;Microsoft Entourage&quot;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">activate<BR>
</FONT> &nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>try<BR>
</B></FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"=
><B>set</B></FONT> <FONT COLOR=3D"#408000">theFolder</FONT> <FONT COLOR=3D"#0000=
FF"><B>to</B></FONT> <FONT COLOR=3D"#0000FF">displayed feature</FONT> <FONT CO=
LOR=3D"#0000FF"><B>of</B></FONT> <FONT COLOR=3D"#0000FF">main window<BR>
</FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>=
if</B></FONT> <FONT COLOR=3D"#0000FF">class</FONT> <FONT COLOR=3D"#0000FF"><B>of=
</B></FONT> <FONT COLOR=3D"#408000">theFolder</FONT> &#8800; <FONT COLOR=3D"#000=
0FF">folder</FONT> <FONT COLOR=3D"#0000FF"><B>then</B></FONT> <FONT COLOR=3D"#00=
00FF"><B>error</B></FONT> <FONT COLOR=3D"#0000FF">number</FONT> -128<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>on</B></FONT> <FONT COLOR=3D=
"#0000FF"><B>error<BR>
</B></FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"=
>beep<BR>
</FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">dis=
play dialog</FONT> &quot;First you must select a folder in teh Folders pane.=
&quot; <FONT COLOR=3D"#0000FF">buttons</FONT> {&quot;Cancel&quot;} <FONT COLOR=
=3D"#0000FF">default button</FONT> 1 <FONT COLOR=3D"#0000FF">with icon</FONT> 0<=
BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>end</B></FONT> <FONT COLOR=
=3D"#0000FF"><B>try<BR>
</B></FONT> &nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>set</B></FONT> <FONT=
COLOR=3D"#408000">newFolder</FONT> <FONT COLOR=3D"#0000FF"><B>to</B></FONT> <FO=
NT COLOR=3D"#0000FF">make</FONT> <FONT COLOR=3D"#0000FF">new</FONT> <FONT COLOR=3D=
"#0000FF">folder</FONT> <FONT COLOR=3D"#0000FF">at</FONT> <FONT COLOR=3D"#408000=
">theFolder<BR>
</FONT> &nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>set</B></FONT> <FONT COL=
OR=3D"#0000FF">displayed feature</FONT> <FONT COLOR=3D"#0000FF"><B>of</B></FONT>=
<FONT COLOR=3D"#0000FF">main window</FONT> <FONT COLOR=3D"#0000FF"><B>to</B></F=
ONT> <FONT COLOR=3D"#408000">newFolder<BR>
</FONT><FONT COLOR=3D"#0000FF"><B>end</B></FONT> <FONT COLOR=3D"#0000FF"><B>tel=
l<BR>
</B></FONT><BR>
<FONT COLOR=3D"#0000FF"><B>tell</B></FONT> <FONT COLOR=3D"#0000FF">application<=
/FONT> &quot;System Events&quot;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>tell</B></FONT> <FONT COLO=
R=3D"#0000FF">process</FONT> &quot;Microsoft Entourage&quot;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">keyst=
roke</FONT> (<FONT COLOR=3D"#0000FF">ASCII character</FONT> 3)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>end</B></FONT> <FONT COLOR=
=3D"#0000FF"><B>tell<BR>
end</B></FONT> <FONT COLOR=3D"#0000FF"><B>tell<BR>
</B></FONT><BR>
<BR>
I find it a sluggish myself. It seems to be the part of selecting the new f=
older that takes a while. So here's an alternate method I find much faster: =
you enter the name of the new folder in a dialog. Then the script just makes=
it without selecting it. Personally I think this is better:<BR>
<BR>
<BR>
<BR>
<FONT COLOR=3D"#0000FF"><B>tell</B></FONT> <FONT COLOR=3D"#0000FF">application<=
/FONT> &quot;Microsoft Entourage&quot;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">activate<BR>
</FONT> &nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>try<BR>
</B></FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"=
><B>set</B></FONT> <FONT COLOR=3D"#408000">theFolder</FONT> <FONT COLOR=3D"#0000=
FF"><B>to</B></FONT> <FONT COLOR=3D"#0000FF">displayed feature</FONT> <FONT CO=
LOR=3D"#0000FF"><B>of</B></FONT> <FONT COLOR=3D"#0000FF">main window<BR>
</FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>=
if</B></FONT> <FONT COLOR=3D"#0000FF">class</FONT> <FONT COLOR=3D"#0000FF"><B>of=
</B></FONT> <FONT COLOR=3D"#408000">theFolder</FONT> &#8800; <FONT COLOR=3D"#000=
0FF">folder</FONT> <FONT COLOR=3D"#0000FF"><B>then</B></FONT> <FONT COLOR=3D"#00=
00FF"><B>error</B></FONT> <FONT COLOR=3D"#0000FF">number</FONT> -128<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>on</B></FONT> <FONT COLOR=3D=
"#0000FF"><B>error<BR>
</B></FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"=
>beep<BR>
</FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">dis=
play dialog</FONT> &quot;First you must select a folder in teh Folders pane.=
&quot; <FONT COLOR=3D"#0000FF">buttons</FONT> {&quot;Cancel&quot;} <FONT COLOR=
=3D"#0000FF">default button</FONT> 1 <FONT COLOR=3D"#0000FF">with icon</FONT> 0<=
BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>end</B></FONT> <FONT COLOR=
=3D"#0000FF"><B>try<BR>
</B></FONT> &nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">display dialog</FONT> &=
quot;Enter a name for the new subfolder:&quot; <FONT COLOR=3D"#0000FF">default=
answer</FONT> &quot;untitled folder&quot; <FONT COLOR=3D"#0000FF">with icon</=
FONT> 1<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>set</B></FONT> <FONT COLOR=
=3D"#408000">newName</FONT> <FONT COLOR=3D"#0000FF"><B>to</B></FONT> <FONT COLOR=
=3D"#0000FF">text returned</FONT> <FONT COLOR=3D"#0000FF"><B>of</B></FONT> <FONT=
COLOR=3D"#0000FF">result<BR>
</FONT> &nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">make</FONT> <FONT COLOR=3D"#0=
000FF">new</FONT> <FONT COLOR=3D"#0000FF">folder</FONT> <FONT COLOR=3D"#0000FF">=
at</FONT> <FONT COLOR=3D"#408000">theFolder</FONT> <FONT COLOR=3D"#0000FF">with =
properties</FONT> {<FONT COLOR=3D"#0000FF">name</FONT>:<FONT COLOR=3D"#408000">n=
ewName</FONT>}<BR>
<FONT COLOR=3D"#0000FF"><B>end</B></FONT> <FONT COLOR=3D"#0000FF"><B>tell<BR>
</B></FONT><BR>
<BR>
<BR>
<BR>
-- <BR>
Paul Berkowitz<BR>
MVP MacOffice<BR>
Entourage FAQ Page: <a href=3D"http://www.entourage.mvps.org/faq/index.html">=
&lt;http://www.entourage.mvps.org/faq/index.html&gt;</a><BR>
AppleScripts for Entourage: <a href=3D"http://macscripter.net/scriptbuilders/=
">&lt;http://macscripter.net/scriptbuilders/&gt;</a> <BR>
<BR>
Please &quot;Reply To Newsgroup&quot; to reply to this message. Emails will=
be ignored.<BR>
<BR>
PLEASE always state which version of Microsoft Office you are using - **200=
4**, X &nbsp;or 2001. It's often impossible to answer your questions otherwi=
se.<BR>
<BR>
<BR>
<FONT COLOR=3D"#0000FF">&gt; From: kevs &lt;studiok4485@hotmail.com&gt;<BR>
&gt; Newsgroups: microsoft.public.mac.office.entourage<BR>
&gt; Date: Sun, 22 Aug 2004 14:18:30 -0700<BR>
&gt; Subject: Re: Keyboard shortcut for making new subfolders?<BR>
&gt; <BR>
&gt; Thanks Paul<BR>
&gt; &nbsp;I did a search and could not find it. Could you please tell me h=
ow to<BR>
&gt; navigate to it? &nbsp;That site is very difficult to find stuff for th=
e layman.<BR>
&gt; <BR>
&gt; <BR>
&gt; <BR>
&gt; <BR>
&gt; On 8/21/04 3:12 PM, in article BD4D16CB.708B3%berkowit@spoof_silcom.co=
m,<BR>
&gt; &quot;Paul Berkowitz&quot; &lt;berkowit@spoof_silcom.com&gt; wrote:<BR=
>
&gt; <BR>
</FONT><FONT COLOR=3D"#008000">&gt;&gt; On 8/21/04 2:02 PM, in article BD4D06=
7C.3AB2%studiok4485@hotmail.com, &quot;kevs&quot;<BR>
&gt;&gt; &lt;studiok4485@hotmail.com&gt; wrote:<BR>
&gt;&gt; <BR>
</FONT><FONT COLOR=3D"#FF0000">&gt;&gt;&gt; <BR>
&gt;&gt;&gt; OS 10.3.4<BR>
&gt;&gt;&gt; Office 2004<BR>
</FONT><FONT COLOR=3D"#008000">&gt;&gt; <BR>
&gt;&gt; <BR>
&gt;&gt; Would you please put your questions into the body of the message? =
Thank you.<BR>
&gt;&gt; <BR>
&gt;&gt; In 10.3.x, go to System Preferences/Keyboard &amp; Mouse/Keyboard =
Shortcuts.<BR>
&gt;&gt; <BR>
&gt;&gt; At the bottom of the list, click Application Shortcuts and click t=
he + box.<BR>
&gt;&gt; Switch the popup to Entourage.<BR>
&gt;&gt; Type 'Subfolder' (no quotes).<BR>
&gt;&gt; Press the keys you want for the shortcut.<BR>
&gt;&gt; <BR>
&gt;&gt; <BR>
&gt;&gt; It will only work when Subfolder is enabled (not dimmed) as a subm=
enu item<BR>
&gt;&gt; of File/New. That only happens when you click on a Folder in the F=
olders<BR>
&gt;&gt; pane to make it the focus.<BR>
</FONT><FONT COLOR=3D"#0000FF">&gt; <BR>
&gt; OS 10.3.4<BR>
&gt; Office 2004<BR>
&gt; <BR>
&gt; <BR>
</FONT></SPAN></FONT>
</BODY>
</HTML>


--B_3176032146_11259091--


Re: Keyboard shortcut for making new subfolders? by kevs

kevs
Mon Aug 23 16:42:16 CDT 2004

> This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

--B_3176116937_7003197
Content-type: text/plain;
charset="ISO-8859-1"
Content-transfer-encoding: 8bit

Paul:
Sorry my fault. I replied to the ³shortcut needed² thread here by accident.
But yeah, I can¹t find that script for the accounts and signatures. That
site, macscripter, very difficult to find stuff, did search and all. Would
it be too much trouble to ask for the direct url for it?

Thanks for subfolder stuff, it¹s a bit over my head, I¹m sure others those
will appreciate it. Let us know if you add it to your repertoire of
scripts.

On 8/22/04 3:09 PM, in article BD4E6792.70A10%berkowit@spoof_silcom.com,
"Paul Berkowitz" <berkowit@spoof_silcom.com> wrote:

> Which site do you mean? I didn't link or refer to a site. Do you mean in my
> signature, which you didn't quote? Both links work.
>
> In your message a few minutes earlier you said you found the right place for
> keyboard shortcuts in Panther but that it didn't work for Subfolder. I'll try
> it myself now.
>
> You're right: it doesn't work at all. I've seen this sometimes, but not
> always, with submenu items.
>
> Here's a script that will do it. If you make it in Script Editor
> (/Applications/AppleScript/Script Editor), save as script in
> ~/Documents/Microsoft User Data/Entourage Script Menu Items/ folder, saving it
> as
>
> New Subfolder \scN
>
> you'll be able to run it via shift-control-N. To use a different keyboard
> shortcut , see the "About the script menu" in Entourage Help.
>
> In order for the final bit of the script to work (it selects the folder to let
> you type the folder name) first go now to System Preferences/Universal
> Access, and check "Enable for assistive devices".
>
> tell application "Microsoft Entourage"
> activate
> try
> set theFolder to displayed feature of main window
> if class of theFolder ? folder then error number -128
> on error
> beep
> display dialog "First you must select a folder in teh Folders pane."
> buttons {"Cancel"} default button 1 with icon 0
> end try
> set newFolder to make new folder at theFolder
> set displayed feature of main window to newFolder
> end tell
>
> tell application "System Events"
> tell process "Microsoft Entourage"
> keystroke (ASCII character 3)
> end tell
> end tell
>
>
> I find it a sluggish myself. It seems to be the part of selecting the new
> folder that takes a while. So here's an alternate method I find much faster:
> you enter the name of the new folder in a dialog. Then the script just makes
> it without selecting it. Personally I think this is better:
>
>
>
> tell application "Microsoft Entourage"
> activate
> try
> set theFolder to displayed feature of main window
> if class of theFolder ? folder then error number -128
> on error
> beep
> display dialog "First you must select a folder in teh Folders pane."
> buttons {"Cancel"} default button 1 with icon 0
> end try
> display dialog "Enter a name for the new subfolder:" default answer
> "untitled folder" with icon 1
> set newName to text returned of result
> make new folder at theFolder with properties {name:newName}
> end tell
>
>
>


OS 10.3.4
Office 2004



--B_3176116937_7003197
Content-type: text/html;
charset="ISO-8859-1"
Content-transfer-encoding: quoted-printable

<HTML>
<HEAD>
<TITLE>Re: Keyboard shortcut for making new subfolders?</TITLE>
</HEAD>
<BODY>
<FONT FACE=3D"Verdana, Helvetica, Arial"><SPAN STYLE=3D'font-size:14.0px'>Paul:=
<BR>
Sorry my fault. &nbsp;I replied to the &#8220;shortcut needed&#8221; thread=
here by accident. But yeah, I can&#8217;t find that script for the &nbsp;ac=
counts and signatures. &nbsp;That site, macscripter, very difficult to find =
stuff, did search and all. Would it be too much trouble to ask for the direc=
t url for it?<BR>
<BR>
Thanks for subfolder stuff, &nbsp;it&#8217;s a bit over my head, I&#8217;m =
sure others those will appreciate it. &nbsp;Let us know if you add it to you=
r repertoire of scripts. <BR>
<BR>
On 8/22/04 3:09 PM, in article BD4E6792.70A10%berkowit@spoof_silcom.com, &q=
uot;Paul Berkowitz&quot; &lt;berkowit@spoof_silcom.com&gt; wrote:<BR>
<BR>
</SPAN></FONT><BLOCKQUOTE><FONT FACE=3D"Verdana, Helvetica, Arial"><FONT SIZE=
=3D"2"><SPAN STYLE=3D'font-size:12.0px'>Which site do you mean? I didn't link or=
refer to a site. Do you mean in my signature, which you didn't quote? Both =
links work.<BR>
<BR>
In your message a few minutes earlier you said you found the right place fo=
r keyboard shortcuts in Panther but that it didn't work for Subfolder. I'll =
try it myself now.<BR>
<BR>
You're right: it doesn't work at all. I've seen this sometimes, but not alw=
ays, with submenu items.<BR>
<BR>
Here's a script that will do it. If you make it in Script Editor (/Applicat=
ions/AppleScript/Script Editor), save as script in ~/Documents/Microsoft Use=
r Data/Entourage Script Menu Items/ folder, saving it as <BR>
<BR>
&nbsp;&nbsp;&nbsp;&nbsp;New Subfolder \scN<BR>
<BR>
you'll be able to run it via shift-control-N. To use a different keyboard s=
hortcut , see the &quot;About the script menu&quot; in Entourage Help.<BR>
<BR>
In order for the final bit of the script to work (it selects the folder to =
let you type the folder name) first go now to &nbsp;System Preferences/Unive=
rsal Access, and check &quot;Enable for assistive devices&quot;.<BR>
<BR>
<FONT COLOR=3D"#0000FF"><B>tell</B></FONT> <FONT COLOR=3D"#0000FF">application<=
/FONT> &quot;Microsoft Entourage&quot;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">activate<BR>
</FONT> &nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>try<BR>
</B></FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"=
><B>set</B></FONT> <FONT COLOR=3D"#408000">theFolder</FONT> <FONT COLOR=3D"#0000=
FF"><B>to</B></FONT> <FONT COLOR=3D"#0000FF">displayed feature</FONT> <FONT CO=
LOR=3D"#0000FF"><B>of</B></FONT> <FONT COLOR=3D"#0000FF">main window<BR>
</FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>=
if</B></FONT> <FONT COLOR=3D"#0000FF">class</FONT> <FONT COLOR=3D"#0000FF"><B>of=
</B></FONT> <FONT COLOR=3D"#408000">theFolder</FONT> &#8800; <FONT COLOR=3D"#000=
0FF">folder</FONT> <FONT COLOR=3D"#0000FF"><B>then</B></FONT> <FONT COLOR=3D"#00=
00FF"><B>error</B></FONT> <FONT COLOR=3D"#0000FF">number</FONT> -128<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>on</B></FONT> <FONT COLOR=3D=
"#0000FF"><B>error<BR>
</B></FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"=
>beep<BR>
</FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">dis=
play dialog</FONT> &quot;First you must select a folder in teh Folders pane.=
&quot; <FONT COLOR=3D"#0000FF">buttons</FONT> {&quot;Cancel&quot;} <FONT COLOR=
=3D"#0000FF">default button</FONT> 1 <FONT COLOR=3D"#0000FF">with icon</FONT> 0<=
BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>end</B></FONT> <FONT COLOR=
=3D"#0000FF"><B>try<BR>
</B></FONT> &nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>set</B></FONT> <FONT=
COLOR=3D"#408000">newFolder</FONT> <FONT COLOR=3D"#0000FF"><B>to</B></FONT> <FO=
NT COLOR=3D"#0000FF">make</FONT> <FONT COLOR=3D"#0000FF">new</FONT> <FONT COLOR=3D=
"#0000FF">folder</FONT> <FONT COLOR=3D"#0000FF">at</FONT> <FONT COLOR=3D"#408000=
">theFolder<BR>
</FONT> &nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>set</B></FONT> <FONT COL=
OR=3D"#0000FF">displayed feature</FONT> <FONT COLOR=3D"#0000FF"><B>of</B></FONT>=
<FONT COLOR=3D"#0000FF">main window</FONT> <FONT COLOR=3D"#0000FF"><B>to</B></F=
ONT> <FONT COLOR=3D"#408000">newFolder<BR>
</FONT><FONT COLOR=3D"#0000FF"><B>end</B></FONT> <FONT COLOR=3D"#0000FF"><B>tel=
l<BR>
</B></FONT><BR>
<FONT COLOR=3D"#0000FF"><B>tell</B></FONT> <FONT COLOR=3D"#0000FF">application<=
/FONT> &quot;System Events&quot;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>tell</B></FONT> <FONT COLO=
R=3D"#0000FF">process</FONT> &quot;Microsoft Entourage&quot;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">keyst=
roke</FONT> (<FONT COLOR=3D"#0000FF">ASCII character</FONT> 3)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>end</B></FONT> <FONT COLOR=
=3D"#0000FF"><B>tell<BR>
end</B></FONT> <FONT COLOR=3D"#0000FF"><B>tell<BR>
</B></FONT><BR>
<BR>
I find it a sluggish myself. It seems to be the part of selecting the new f=
older that takes a while. So here's an alternate method I find much faster: =
you enter the name of the new folder in a dialog. Then the script just makes=
it without selecting it. Personally I think this is better:<BR>
<BR>
<BR>
<BR>
<FONT COLOR=3D"#0000FF"><B>tell</B></FONT> <FONT COLOR=3D"#0000FF">application<=
/FONT> &quot;Microsoft Entourage&quot;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">activate<BR>
</FONT> &nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>try<BR>
</B></FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"=
><B>set</B></FONT> <FONT COLOR=3D"#408000">theFolder</FONT> <FONT COLOR=3D"#0000=
FF"><B>to</B></FONT> <FONT COLOR=3D"#0000FF">displayed feature</FONT> <FONT CO=
LOR=3D"#0000FF"><B>of</B></FONT> <FONT COLOR=3D"#0000FF">main window<BR>
</FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>=
if</B></FONT> <FONT COLOR=3D"#0000FF">class</FONT> <FONT COLOR=3D"#0000FF"><B>of=
</B></FONT> <FONT COLOR=3D"#408000">theFolder</FONT> &#8800; <FONT COLOR=3D"#000=
0FF">folder</FONT> <FONT COLOR=3D"#0000FF"><B>then</B></FONT> <FONT COLOR=3D"#00=
00FF"><B>error</B></FONT> <FONT COLOR=3D"#0000FF">number</FONT> -128<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>on</B></FONT> <FONT COLOR=3D=
"#0000FF"><B>error<BR>
</B></FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"=
>beep<BR>
</FONT> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">dis=
play dialog</FONT> &quot;First you must select a folder in teh Folders pane.=
&quot; <FONT COLOR=3D"#0000FF">buttons</FONT> {&quot;Cancel&quot;} <FONT COLOR=
=3D"#0000FF">default button</FONT> 1 <FONT COLOR=3D"#0000FF">with icon</FONT> 0<=
BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>end</B></FONT> <FONT COLOR=
=3D"#0000FF"><B>try<BR>
</B></FONT> &nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">display dialog</FONT> &=
quot;Enter a name for the new subfolder:&quot; <FONT COLOR=3D"#0000FF">default=
answer</FONT> &quot;untitled folder&quot; <FONT COLOR=3D"#0000FF">with icon</=
FONT> 1<BR>
&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF"><B>set</B></FONT> <FONT COLOR=
=3D"#408000">newName</FONT> <FONT COLOR=3D"#0000FF"><B>to</B></FONT> <FONT COLOR=
=3D"#0000FF">text returned</FONT> <FONT COLOR=3D"#0000FF"><B>of</B></FONT> <FONT=
COLOR=3D"#0000FF">result<BR>
</FONT> &nbsp;&nbsp;&nbsp;<FONT COLOR=3D"#0000FF">make</FONT> <FONT COLOR=3D"#0=
000FF">new</FONT> <FONT COLOR=3D"#0000FF">folder</FONT> <FONT COLOR=3D"#0000FF">=
at</FONT> <FONT COLOR=3D"#408000">theFolder</FONT> <FONT COLOR=3D"#0000FF">with =
properties</FONT> {<FONT COLOR=3D"#0000FF">name</FONT>:<FONT COLOR=3D"#408000">n=
ewName</FONT>}<BR>
<FONT COLOR=3D"#0000FF"><B>end</B></FONT> <FONT COLOR=3D"#0000FF"><B>tell<BR>
</B></FONT><BR>
<BR>
<BR>
</SPAN></FONT></FONT></BLOCKQUOTE><FONT FACE=3D"Verdana, Helvetica, Arial"><F=
ONT SIZE=3D"2"><SPAN STYLE=3D'font-size:12.0px'><BR>
<BR>
</SPAN></FONT><SPAN STYLE=3D'font-size:14.0px'>OS 10.3.4<BR>
Office 2004<BR>
<BR>
</SPAN></FONT>
</BODY>
</HTML>


--B_3176116937_7003197--