Solved

Color coded public folded calendar options

Posted on 2012-03-19
5
1,436 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 4

Accepted Solution

by:
R3C0N earned 500 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

Enroll in May's Course of the Month

May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.

Question has a verified solution.

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

Suggested Solutions

Learn to move / copy / export exchange contacts to iPhone without using any software. Also see the issues in configuration of exchange with iPhone to migrate contacts.
This article explains how to install and use the NTBackup utility that comes with Windows Server.
The video tutorial explains the basics of the Exchange server Database Availability groups. The components of this video include: 1. Automatic Failover 2. Failover Clustering 3. Active Manager
The viewer will learn how to simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…

752 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