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
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.