Automate Public Folder and Label Setup

[sqtchman74]

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.

 

[Sue Mosher [MVP-Outlook]]

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

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

 

[glarson123]

looking to copy specific folder/calendar from pubic folder?

I'm looking for a way to make it easy for the end user to quickly add a shared public calenar from the public folders to their favorite public folders........this code looks like its for ALL public folders which I defintely don't want to do. Can you specify a path in the myAPF.Folders("\foldername\foldername\foldername\calendarname") line at the end??? I can't seem to get it to work.

Any other ideas would be appreciated. THANKS for the site and info,


Gabe
is analyst norcal


FIGURED IT OUT

Set myAPF = myNS.Folders("Public Folders").Folders("All Public Folders").Folders("subfoldername").Folders("subfoldername").Folders("subfoldername") etc til the last sub folder before the folder or calendar you want to add.

SWEET script. THANKS !!!

 

[glarson123]

actually now would like to be able to remove from public folder favorite?

any ideas??? removefrompffavorites doesn't work.

thanks in advance for your time

Gabe

 

[glarson123]

ok figured that out now how about

want to script a public folder favorite to outlook favorite window pane???