Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Color coded public folded calendar options

Posted on 2012-03-19
5
Medium Priority
?
1,610 Views
Last Modified: 2012-03-27
We have a department that wants to have different color coded categories for their department to use on calendar entries (appointments) on a public folder calendar. They want to have it set up with some type of master category list (MCL). So that when one user enters an appointment that has a certain labeled color all the other users that access the public folder calendar will see that entry in that color. We use Outlook 2010 and Exchange Server 2010. We are looking for options for them to consider from automating the process to end user directions for setting up this process. We are interested to know what the experts think.
0
Comment
Question by:michd
  • 3
  • 2
5 Comments
 
LVL 4

Accepted Solution

by:
R3C0N earned 2000 total points
ID: 37739692
Check this link out some of it applies...

http://social.technet.microsoft.com/Forums/en-US/exchangesvrclients/thread/a7695385-8d68-4af8-93d9-88bf884afc19 

Colors are a personal preference to the users workstation or the owner of the shared calendar. You should be able access the properties of the shared calendar and apply it to everyone as stated in the article.

Const CATNAMES = "Enter Catergories betwwen the commas,,,,,,"
Const CATCOLORS = "20,1,23,15,17,6,4,16,11"
Dim olkApp, olkSes, olkCats, olkCat, arrCats, varCat, arrColors, varColor, intIndex, olkColor
Set olkApp = CreateObject("Outlook.Application")
Set olkSes = olkApp.GetNamespace("MAPI")
olkSes.Logon "Outlook"
Set olkCats = olkSes.Categories

on error resume next

olkCats.Remove ("Red Category")
olkCats.Remove ("Green Category")
olkCats.Remove ("Blue Category")
olkCats.Remove ("Orange Category")
olkCats.Remove ("Purple Category")
olkCats.Remove ("Yellow Category")


arrCats = Split(CATNAMES, ",")
arrColors = Split(CATCOLORS, ",")
For intIndex = LBound(arrCats) To UBound(arrCats)
    varCat = arrCats(intIndex)
    varColor = arrColors(intIndex)
    Set olkCat = olkCats.Item(varCat)
    If TypeName(olkCat) = "Nothing" Then
        Set olkCat = olkCats.Add(varCat, varColor)
    Else
        If olkCat.Color <> varColor Then
            olkCat.Color = varColor
        End If
    End If
Next
Set olkCat = Nothing
Set olkCats = Nothing
olkSes.Logoff
Set olkSes = Nothing
Set olkApp = Nothing
MsgBox ("Happy Coloring!!")

A vbs script we used in a 2k7 environment... May help get an idea. The idea if I remeber right was to strip the colors from the users workstations so that the colors from the shared calendar were applied instead of their personal choices they had set previously.

-R3c0n
0
 

Author Comment

by:michd
ID: 37767052
R3c0n,
I believe that this solution will work for our situation, Thank you. I do need to ask a follow up question. Is there a way to get a spefic CATCOLOR (#) for an item listed in the CATNAMES? They would like certain colors for the categories they have named?
0
 

Author Comment

by:michd
ID: 37773570
Found this, it may help someone:

Name      Value      Description
olCategoryColorBlack      15      Black
olCategoryColorBlue      8      Blue
olCategoryColorDarkBlue      23      Dark Blue
olCategoryColorDarkGray      14      Dark Gray
olCategoryColorDarkGreen      20      Dark Green
olCategoryColorDarkMaroon      25      Dark Maroon
olCategoryColorDarkOlive      22      Dark Olive
olCategoryColorDarkOrange      17      Dark Orange
olCategoryColorDarkPeach      18      Dark Peach
olCategoryColorDarkPurple      24      Dark Purple
olCategoryColorDarkRed      16      Dark Red
olCategoryColorDarkSteel      12      Dark Steel
olCategoryColorDarkTeal      21      Dark Teal
olCategoryColorDarkYellow      19      Dark Yellow
olCategoryColorGray      13      Gray
olCategoryColorGreen      5      Green
olCategoryColorMaroon      10      Maroon
olCategoryColorNone      -1      No color assigned.
olCategoryColorOlive      7      Olive
olCategoryColorOrange      2      Orange
olCategoryColorPeach      3      Peach
olCategoryColorPurple      9      Purple
olCategoryColorRed      1      Red
olCategoryColorSteel      11      Steel
olCategoryColorTeal      6      Teal
olCategoryColorYellow      4      Yellow
0
 

Author Closing Comment

by:michd
ID: 37773577
Thanks for the help!
0
 
LVL 4

Expert Comment

by:R3C0N
ID: 37773622
Thanks sorry I didn't see your post to follow up with a answer but see you found it thanks ill store those catcolors with the script is it working for you in your situation I know its not a total solution but hope it got you started I the right direction

-R3c0n
0

Featured Post

Simplify Active Directory Administration

Administration of Active Directory does not have to be hard.  Too often what should be a simple task is made more difficult than it needs to be.The solution?  Hyena from SystemTools Software.  With ease-of-use as well as powerful importing and bulk updating capabilities.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Want to know how to use Exchange Server Eseutil command? Go through this article as it gives you the know-how.
How to effectively resolve the number one email related issue received by helpdesks.
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …
To add imagery to an HTML email signature, you have two options available to you. You can either add a logo/image by embedding it directly into the signature or hosting it externally and linking to it. The vast majority of email clients display l…

971 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question