If you would like to copy all color categories from one Outlook PST file to another, it is a good option to utilize the VBA code shown in this article. It can assist you to get it in quick time.
At times, you may want to copy all color categories from one Outlook PST file to another file, simply in order to make the color categories of all your Outlook files unified and manage your Outlook items more effectively. Although you could also realize it by the way introduced in my previous article “How to Migrate Outlook Color Categories to another Computer”, it is more suggested to use the following means. It is much faster due to application of VBA code.
Copy All Color Categories from One Outlook PST File to Another
- To start with, launch your Outlook application.
- Then you could proceed to press “Alt + F11” key buttons in the main Outlook screen.
- Next in the emerging “Microsoft Visual Basic for Applications” window, you need to open a module that is not in use or straightly insert a new module.
- Subsequently, copy the following VBA code into this module.
Sub CopyColorCategories_FromAnOutlookPSTFile2Another() Dim objSourceStore As Outlook.Store Dim objTargetStore As Outlook.Store Dim objCategory As Category Dim strCategoryList As String Dim objFileSystem As Object Dim strTextFile As String Dim objTextFile As Object Dim objTextStream As Object Dim strLine As String Dim strArray() As String Dim objFoundCategory As Outlook.Category 'Get the color categories from the source PST file 'Change "John Smith" as per the display name of your source PST file Set objSourceStore = Application.Session.Stores.Item("John Smith") If objSourceStore.Categories.count > 0 Then For Each objCategory In objSourceStore.Categories strCategoryList = strCategoryList & objCategory.Name & ", " & objCategory.Color & ", " & objCategory.ShortcutKey & vbCrLf Next End If 'Export the category list to a Text file Set objFileSystem = CreateObject("Scripting.FileSystemObject") strTextFile = objFileSystem.GetSpecialFolder(2).Path & "\" & "Category List " & Format(Now, "yyyymmddhhmmss") & ".txt" Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True) objTextFile.WriteLine (strCategoryList) 'Specify the target PST file 'Change "Johnny" as per the display name of your target PST file Set objTargetStore = Application.Session.Stores.Item("Jonny") 'Read each line of the Text file Set objTextStream = objFileSystem.OpenTextFile(strTextFile) Do Until objTextStream.AtEndOfStream strLine = objTextStream.ReadLine If strLine <> "" Then 'Add the color categories on basis of extracted Category name, color and shortcut key strArray = Split(strLine, ",") Set objFoundCategory = objTargetStore.Categories.Item(strArray(0)) If objFoundCategory Is Nothing Then objTargetStore.Categories.Add strArray(0), strArray(1), strArray(2) End If End If Loop objTextStream.Close MsgBox "Copy Successfully!", vbExclamation + vbOKOnly, "Copy Color Categories" End Sub
- After that, you can exit the current Outlook VBA editor temporarily and click the “Macro Security” button under “Developer” tab.
- In the popup window, you should activate the “Enable all macros” option and hit “OK” to save the changes.
- Later you can turn back to VBA editor by clicking “Visual Basic” button or hit “Alt + F11” keys again.
- Next, access the previously added macro.
- Eventually, to trigger this new macro, just press F5 key button.
- After macro is finished, you will see that all the color categories of the source Outlook PST file have been copied to the specific target file.
Protect Outlook Data against Corruption
In spite of boasting of numerous capabilities, Outlook still can’t be immune from corruption. Therefore, if you are a regular Outlook user, you have to learn how to decrease the likelihood of Outlook corruption. For instance, you ought to keep virus at bay, get used to closing Outlook properly, getting hold of a top-ranking repair tool, like DataNumen Outlook Repair, and so on.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including corrupted mdf and outlook repair software products. For more information visit www.datanumen.com