Category.ShortcutKey Property

  • Article
Outlook Developer Reference

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

Version Information
 Version Added:  Outlook 2007

Syntax

expression.ShortcutKey

expression   A variable that represents a Category object.

Remarks

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.

Example

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.

Visual Basic for Applications 
  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
        Next
    End If
    
    ' Display the output string.
    MsgBox strOutput
    
    ' Clean up.
    Set objCategory = Nothing
    Set objNameSpace = Nothing
    
End Sub

See Also