Solved

transfer categories from outlook 2003 to 2007

Posted on 2009-05-12
4
506 Views
Last Modified: 2013-11-29
I wonder if anyone can suggest a way of copying the categories from Outlook 2003 on one machine to Outlook 2007 on another.
Microsdoft have an article
http://support.microsoft.com/default.aspx?scid=kb;en-us;297405
which explains how to do it in 2003 to 2003 but that is all I can find.


0
Comment
Question by:MsElfin
  • 2
4 Comments
 
LVL 76

Expert Comment

by:David Lee
ID: 24365818
Hi, MsElfin.

Outlook 2003 stores categories in the registry.  Outlook 2007 stores them in a hidden folder in Outlook.  There is no built in means of copying them from 2003 to 2007.  It is possible to do it if you are comfortable scripting in Outlook.
0
 

Author Comment

by:MsElfin
ID: 24484834
Hi BlueDevilFan

Thanks your message.  How does one access the hidden folder in Outlook 2007?  Then I can look at scripting.

Thanks
0
 
LVL 76

Accepted Solution

by:
David Lee earned 50 total points
ID: 24487754
You don't need to access the hidden folder directly.  Outlook 2007's object model includes everything you need to do it from code.  Here's an example of how to add categories in Outlook 2007.
Sub CompanyCategories()

    Const CATNAMES = "CatA,CatB"

    Const CATCOLORS = "2,3"

    Dim olkApp, olkSes, olkCats, olkCat, arrCats, varCat, arrColors, varColor, intIndex

    Set olkApp = CreateObject("Outlook.Application")

    Set olkSes = olkApp.GetNamespace("MAPI")

    olkSes.Logon "Outlook"

    Set olkCats = olkSes.Categories

    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

End Sub

Open in new window

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Following basic email etiquette rules will help you write a professional email and achieve a good, lasting impression with your contacts.
Read this checklist to learn more about the 15 things you should never include in an email signature.
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …
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…

863 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

Need Help in Real-Time?

Connect with top rated Experts

24 Experts available now in Live!

Get 1:1 Help Now