?
Solved

transfer categories from outlook 2003 to 2007

Posted on 2009-05-12
4
Medium Priority
?
512 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
[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
  • 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 200 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

Want to be a Web Developer? Get Certified Today!

Enroll in the Certified Web Development Professional course package to learn HTML, Javascript, and PHP. Build a solid foundation to work toward your dream job!

Question has a verified solution.

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

This article lists the top 5 free OST to PST Converter Tools. These tools save a lot of time for users when they want to convert OST to PST after their exchange server is no longer available or some other critical issue with exchange server or impor…
Phishing attempts can come in all forms, shapes and sizes. No matter how familiar you think you are with them, always remember to take extra precaution when opening an email with attachments or links.
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
CodeTwo Sync for iCloud (http://www.codetwo.com/sync-for-icloud?sts=6554) automatically synchronizes your Outlook 2016, 2013, 2010 or 2007 folders with iCloud folders available via iCloud Control Panel. This lets you automatically sync them with…
Suggested Courses
Course of the Month12 days, 11 hours left to enroll

777 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