Oh! Shoot! Yeah, my replies color-code too, just not new messages.
You can make an Outgoing Rule (Tools/Rules/Outgoing), or several. There's no
way* to make a single outgoing rule to cover all categories, but for those
categories that are important to you, each could have its own rule:
Criterion
If <Any To recipient> <Is in category> <Work>
Action
<Set category> <Work>
etc. A separate rule for each category that matters.
*Actually it can be done via AppleScript, by setting an Outgoing rule to run
a script on all messages. Download my "Set Sent Message Category" script
from
MacScripter.net <
http://macscripter.net/scriptbuilders/>
(You'll also need to get Stuffit Expander, free, from versiontracker if
you're in Tiger or Leopard and never had an earlier OS on your computer., to
expand the ,sit download. Macs used to come with SE but no longer do. Or
save this script to your Entourage Script Menu Items folder, and link your
rule to that:
tell application "Microsoft Entourage"
set theMsg to item 1 of (get current messages)
try
set theAddresses to address of address of every recipient of theMsg
whose recipient type is (to recipient)
on error -- news messages have no 'to recipients'
return
end try
repeat with theAddress in theAddresses
set theContacts to find theAddress
if theContacts ‚ {} then
set theContact to item 1 of theContacts
set theCategory to category of theContact
if theCategory ‚ {} then
set category of theMsg to theCategory
exit repeat -- just category of first recipient to have a
non-empty category
end if
end if
end repeat
end tell
I have a note that early versions of Entourage 2004 had a bug, I'm not sure
if it's been fixed or not. Here's a version that will work vrnm if there's
still a bug, and also makes an exception for messages sent to mailing lists
registered in Mailing List Manager.
--Set Sent Message Category [v1.0.0PB]
-- Paul Berkowitz <
[email protected]>
tell application "Microsoft Entourage"
set mailingListAddresses to list address of every mailing list
set theMsg to item 1 of (get current messages)
try
--set theAddresses to address of address of every recipient of
theMsg whose recipient type is (to recipient) -- bug in e11
set theAddresses to {}
set theRecips to (every recipient of theMsg)
repeat with i from 1 to (count theRecips)
set theRecip to item i of theRecips
set recipType to (recipient type) of theRecip
if recipType is (to recipient) then
set end of theAddresses to address of address of theRecip
end if
end repeat
on error -- news messages have no 'to recipients'
return
end try
repeat with theAddress in theAddresses
if {contents of theAddress} is not in mailingListAddresses then
set theContacts to find theAddress
if theContacts ‚ {} then
set theContact to item 1 of theContacts
set theCategory to category of theContact
if theCategory ‚ {} then
set category of theMsg to theCategory
exit repeat -- just category of first recipient to have
a non-empty category
end if
end if
end if
end repeat
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.