Dim instance As Categories<br />Dim Name As String<br />Dim Color As OlColor<br />Dim ShortcutKey As OlCategoryShortcutKey<br /><br />Dim returnValue As Category<br /><br />Dim f As NameSpace<br />Set f = Application.GetNamespace("MAPI")<br />Set instance = f.Categories<br />Color = olColorFuchsia<br />Name = "MyCategory"<br />ShortcutKey = olCategoryShortcutKeyNone<br />Set returnValue = instance.Add(Name, Color, ShortcutKey)
var