Propriedade Category.ShortcutKey (Outlook)
Retorna ou define uma constante OlCategoryShortcutKey que especifica a tecla de atalho utilizada pelo objeto Category. Leitura/gravação.
Sintaxe
expressão. ShortcutKey
Expressão Uma variável que representa um objeto Category .
Comentários
Qualquer constante OlCategoryShortcutKey que não seja olCategoryShortcutKeyNone só pode ser usado por um objeto de categoria a qualquer momento. Definir o valor dessa propriedade como uma constante OlCategoryShortcutKey já em conjuntos de uso a propriedade ShortcutKey do objeto Category já usando o valor especificado para olCategoryShortcutKeyNone.
Exemplo
O seguinte exemplo Visual Basic for Applications (VBA) exibe uma caixa de diálogo contendo as atribuições de teclas de atalho para cada objeto Category contido no conjunto Categories associado ao objeto NameSpace padrão.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.