Outlook Object Model : Creating Outlook Categories programmatically and assign colors, shortcut keys to that
In this blogpost, we will try to create the Outlook Categories programmatically using Outlook Object Model API. Also we will assign the relevant colors and shortcuts to that. Whenever we try with Outlook Object Model, it’s relatively simple.
'[Code snippet to create Categories]
Private Sub CreateCategory()
Dim objNameSpace As NameSpace
Dim objCategory As Category
' Obtain a NameSpace object reference
Set objNameSpace = Application.GetNamespace("MAPI")
'Add the Category, set its color and shortcutkey, if any
Set objCategory = objNameSpace.Categories.Add("SampleCat", OlCategoryColor.olCategoryColorDarkBlue,
_OlCategoryShortcutKey.olCategoryShortcutKeyNone)
' Clean up
Set objCategory = Nothing
Set objNameSpace = Nothing
End Sub
Happy programming!!
