Solved

Color coded public folded calendar options

Posted on 2012-03-19
5
1,487 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

Is Your AD Toolbox Looking More Like a Toybox?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

Question has a verified solution.

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

How to resolve IMCEAEX NDRs in Exchange or Exchange Online related to invalid X500 addresses.
This article will help to fix the below error for MS Exchange server 2010 I. Out Of office not working II. Certificate error "name on the security certificate is invalid or does not match the name of the site" III. Make Internal URLs and External…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you! In this Micro Tutorial, you'll learn yo…
Suggested Courses

634 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