Compartilhar via


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

Objeto Folder

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.