Свойство Folder.CustomViewsOnly (Outlook)

Статья
04/07/2023

Возвращает или задает логическое значение, определяющее, какие представления отображаются в меню Вид для заданной папки. Для чтения и записи.

Синтаксис

выражение. CustomViewsOnly

Выражение Переменная, представляющая объект Folder .

Замечания

Если задано значение True, в меню будут отображаться только созданные пользователем представления.

Это свойство действует только в меню Вид . Это не влияет на отображение представлений в области навигации.

Пример

В следующем примере пользователю предлагается выбрать параметр представления. Если пользователь решает просмотреть все представления, свойству CustomViewsOnly присвоено значение False. Если пользователь решает просматривать только пользовательские представления, свойство CustomViewsOnly имеет значение True. После изменения свойства результат изменения можно увидеть в пользовательском интерфейсе.

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

См. также

Folder Object

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через