Propriedade Folder.CustomViewsOnly (Outlook)
Retorna ou define um Boolean que determina quais modos de exibição são exibidos no menu Exibir, para uma determinada pasta. Leitura/gravação.
Sintaxe
expression. CustomViewsOnly
Expressão Uma variável que representa um objeto Folder .
Comentários
Se definido como True, somente as exibições criadas pelo usuário aparecerão no menu.
Esta propriedade tem efeito somente sobre o menu Exibir. Ele não afeta a exibição de exibições no painel de navegação.
Exemplo
O exemplo a seguir solicita que o usuário selecione uma opção de exibição. Se o usuário escolher todas as exibições, a propriedade CustomViewsOnly será definida como False. Se o usuário optar por exibir somente exibições personalizadas, a propriedade CustomViewsOnly é definida como True. Depois que a propriedade for alterada, o resultado da alteração pode ser visto na interface do usuário.
Sub SetCusView()
'Sets the CustomViewsOnly property depending on the user's response
Dim nmsName As Outlook.NameSpace
Dim fldFolder As Outlook.Folder
Dim lngAns As Long
Set nmsName = Application.GetNamespace("MAPI")
Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox)
'Prompt user for input
lngAns = MsgBox( _
"Would you like to view only custom views in the View menu?", vbYesNo)
Call SetVal(fldFolder, lngAns)
End Sub
Sub SetVal(ByRef fldFolder As Folder, ByVal lngAns As Long)
'Modifies the CustomViewsOnly property to display views on the View menu
If lngAns = vbYes Then
fldFolder.CustomViewsOnly = True
Else
fldFolder.CustomViewsOnly = False
End If
'Display only custom views
If lngAns = vbYes Then
MsgBox "The View menu for the " _
& fldFolder.Name & " folder will now display only custom views."
'Display all views
Else
MsgBox "The View menu for the " _
& fldFolder.Name & " folder will now display all views."
End If
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.