Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1721
  • Last Modified:

Color coded public folded calendar options

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
michd
Asked:
michd
  • 3
  • 2
1 Solution
 
R3C0NCommented:
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
 
michdAuthor Commented:
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
 
michdAuthor Commented:
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
 
michdAuthor Commented:
Thanks for the help!
0
 
R3C0NCommented:
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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Problems using Powershell and Active Directory?

Managing Active Directory does not always have to be complicated.  If you are spending more time trying instead of doing, then it's time to look at something else. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now