Solved

Color coded public folded calendar options

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

Optimizing Cloud Backup for Low Bandwidth

With cloud storage prices going down a growing number of SMBs start to use it for backup storage. Unfortunately, business data volume rarely fits the average Internet speed. This article provides an overview of main Internet speed challenges and reveals backup best practices.

Question has a verified solution.

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

This process describes the steps required to Import and Export data from and to .pst files using Exchange 2010. We can use these steps to export data from a user to a .pst file, import data back to the same or a different user, or even import data t…
MS Outlook is a world-class email client application that is mainly used for e-communication globally.  In this article, we will discuss the basic idea about MS Outlook, its advanced features, and types of MS Outlook File formats.
To show how to generate a certificate request in Exchange 2013. We show this process by using the Exchange Admin Center. Log into Exchange Admin Center.:  First we need to log into the Exchange Admin Center. Navigate to the Servers >> Certificates…
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…

823 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