Category.ShortcutKey Property (Outlook)

Office 2013 and later

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Returns or sets an OlCategoryShortcutKey constant that specifies the shortcut key used by the Category object. Read/write.

expression .ShortcutKey

expression A variable that represents a Category object.

Any OlCategoryShortcutKey constant other than olCategoryShortcutKeyNone can only be used by one Category object at any given time. Setting the value of this property to an OlCategoryShortcutKey constant already in use sets the ShortcutKey property of the Category object already using the specified value to olCategoryShortcutKeyNone.

The following Visual Basic for Applications (VBA) example displays a dialog box containing shortcut key assignments for each Category object contained in the Categories collection associated with the default NameSpace object.

Private Sub ListShortcutKeys() 
 Dim objNameSpace As NameSpace 
 Dim objCategory As Category 
 Dim strOutput As String 
 ' Obtain a NameSpace object reference. 
 Set objNameSpace = Application.GetNamespace("MAPI") 
 ' Check if the Categories collection for the Namespace 
 ' contains one or more Category objects. 
 If objNameSpace.Categories.Count > 0 Then 
 ' Enumerate the Categories collection, checking 
 ' the value of the ShortcutKey property for 
 ' each Category object. 
 For Each objCategory In objNameSpace.Categories 
 ' Add the name of the Category object to 
 ' the output string. 
 strOutput = strOutput & objCategory.Name 
 ' Add information about the assigned shortcut key 
 ' to the output string. 
 Select Case objCategory.ShortcutKey 
 Case OlCategoryShortcutKey.olCategoryShortcutKeyNone 
 strOutput = strOutput & ": No shortcut key" & vbCrLf 
 Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF2 
 strOutput = strOutput & ": Ctrl+F2" & vbCrLf 
 Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF3 
 strOutput = strOutput & ": Ctrl+F3" & vbCrLf 
 Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF4 
 strOutput = strOutput & ": Ctrl+F4" & vbCrLf 
 Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF5 
 strOutput = strOutput & ": Ctrl+F5" & vbCrLf 
 Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF6 
 strOutput = strOutput & ": Ctrl+F6" & vbCrLf 
 Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF7 
 strOutput = strOutput & ": Ctrl+F7" & vbCrLf 
 Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF8 
 strOutput = strOutput & ": Ctrl+F8" & vbCrLf 
 Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF9 
 strOutput = strOutput & ": Ctrl+F9" & vbCrLf 
 Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF10 
 strOutput = strOutput & ": Ctrl+F10" & vbCrLf 
 Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF11 
 strOutput = strOutput & ": Ctrl+F11" & vbCrLf 
 Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF12 
 strOutput = strOutput & ": Ctrl+F12" & vbCrLf 
 Case Else 
 strOutput = strOutput & ": Unknown" & vbCrLf 
 End Select 
 End If 
 ' Display the output string. 
 MsgBox strOutput 
 ' Clean up. 
 Set objCategory = Nothing 
 Set objNameSpace = Nothing 
End Sub