Propriedade OutlookBarShortcut.Target (Outlook)
Retorna um Variant indicando o destino do atalho especificado em um grupo do painel atalhos. Somente leitura.
Sintaxe
expression. Target
Expressão Uma variável que representa um objeto OutlookBarShortcut .
Comentários
O tipo de retorno depende do tipo do atalho. Se o atalho representar uma pasta do Outlook, o tipo de retorno é a pasta. Se o atalho representar uma pasta do sistema de arquivos, o tipo de retorno é um objeto. Se o atalho representar um caminho de sistema de arquivos ou uma URL, o tipo de retorno é uma cadeia de caracteres.
Exemplo
Este Microsoft Visual Basic for Applications (VBA) exemplo percorre os atalhos do primeiro grupo do painel atalhos. Ele calcula o número de atalhos que são pastas do Outlook e exibe a contagem.
Sub DeleteShortcuts()
Dim myOlBar As Outlook.OutlookBarPane
Dim myolGroup As Outlook.OutlookBarGroup
Dim myOlShortcuts As Outlook.OutlookBarShortcuts
Dim myOlShortcut As Outlook.OutlookBarShortcut
Dim myTop As Integer
Dim x As Integer
Dim count As Integer
Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar")
Set myolGroup = myOlBar.Contents.Groups.Item(1)
Set myOlShortcuts = myolGroup.Shortcuts
myTop = myOlShortcuts.Count
For x = myTop To 1 Step -1
Set myOlShortcut = myOlShortcuts.Item(x)
If TypeName(myOlShortcut.Target) = "Folder" Then
count = count + 1
End If
Next x
MsgBox ("Number of shortcuts that are Outlook folders:" & count)
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.