Compartir a través de


Propiedad Folder.CustomViewsOnly (Outlook)

Devuelve o establece un valor Boolean que determina las vistas que se muestran en el menú Ver para una carpeta determinada. Lectura y escritura.

Sintaxis

expresión. CustomViewsOnly

Expresión Variable que representa un objeto Folder .

Comentarios

Si se establece en True, sólo las vistas creadas por el usuario se muestra en el menú.

Esta propiedad solo tiene efecto en el menú Ver. No afecta a la visualización de vistas en el panel de navegación.

Ejemplo:

El ejemplo siguiente solicita al usuario que seleccione una opción de vista. Si el usuario elige ver todas las vistas, la propiedad CustomViewsOnly se establece en False. Si el usuario elige ver sólo las vistas personalizadas, la propiedad CustomViewsOnly se establece en True. Una vez que se cambia la propiedad, puede verse el resultado del cambio en la interfaz de usuario.

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

Consulte también

Objeto Folder

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.