Folder.CustomViewsOnly 屬性 (Outlook)

會傳回或設定 Boolean ，決定要在指定資料夾的 [ 檢視 ] 功能表上顯示哪些檢視。 讀取/寫入。

語法

expression。 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 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。