Scripts for setting mail message colors quickly

Question

I've been frustrated at how difficult it is to set the color of a message subject etc in a mailbox. Sometimes applying a color would work, sometimes not, and many clicks required. Finally I wrote a simple script that appears in the Finder's Scripts menu, which applies a particular color to all emails that are selected. I made one version for each color I use (I use these to keep track of emails that are useful references, or that require some action, etc.) I added a leading space to the script names so they would appear at the top of the scripts menu. I wish I could connect them to buttons in the Mail window, but don't know a way to do that, and this is nearly as conveniet.
Here's one of the scripts. Colors can be none, red, orange, blue, gray, green, purple, yellow:
tell application "Mail"
set selectedMessages to selection
set nm to count of selectedMessages
if (nm) is equal to 0 then
display alert "No Messages Selected" message "Select the message(s) you want to color red before running this script."
else
repeat with nn from 1 to nm by 1
set theMessage to item nn of selectedMessages
set the background color of theMessage to red
end repeat
end if
end tell

Answer 1

HI Disha
Check out these links. They will surely help
http://www.geocities.com/mpioud/Z_EMAIL_ABAP_REPORT.html
http://www.thespot4sap.com/Articles/SAP_Mail_SO_Object_Send.asp
If you find this answer useful, please reward me for the same.
Good luck
Karthik Potharaju