I am running an Exchange 2003 enviroment with about 150 users. Each
user is using Outlook 2003 or higher. I have created the following
script to automatically move the contents from the Users Public Folder
list to his Public Favorites so they can see these calanders in thier
outlook calendar section to choose from:

Dim myOlApp
Set myOlApp = CreateObject("Outlook.Application")
Set myNS = myOlApp.Application.GetNamespace("MAPI")
Set myAPF = myNS.Folders("Public Folders").Folders("All Public
Folders")
myAPF.Folders("StorePublic").AddToPFFavorites

I have this script in a .vns file so it can be run outside of Outlook.

My question is what code do I need to add to this file so that I can
change each users label description in there Outlook for a specific
color to read something different other than the defualt.

You may need to think this out a bit more. In Outlook 2003, calendar color labels are folder-specific, not user-specific. So, you don't need any script code. Just set them once, manually. Outlook 2007, OTOH, has no folder-specific labels, nor really any labels at all. Instead, it has categories, the colors for which are user-specific and contained in the user's Namespace.Categories collection. Working with these two tagging concepts from two different versions may not be very easy.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"sqtchman74" wrote in message oups.com...
I am running an Exchange 2003 enviroment with about 150 users. Each
user is using Outlook 2003 or higher. I have created the following
script to automatically move the contents from the Users Public Folder
list to his Public Favorites so they can see these calanders in thier
outlook calendar section to choose from:

Dim myOlApp
Set myOlApp = CreateObject("Outlook.Application")
Set myNS = myOlApp.Application.GetNamespace("MAPI")
Set myAPF = myNS.Folders("Public Folders").Folders("All Public
Folders")
myAPF.Folders("StorePublic").AddToPFFavorites

I have this script in a .vns file so it can be run outside of Outlook.

My question is what code do I need to add to this file so that I can
change each users label description in there Outlook for a specific
color to read something different other than the defualt.