Outlook VBA教程:CustomViewsOnly属性

返回或设置指定文件夹的“视图”菜单上所显示的视图。Boolean 类型。如果设置为 True,菜单上将只显示用户创建的视图。可读写。

expression.CustomViewsOnly

expression  必选。该表达式返回MAPIFolder对象。

VBA示例

以下示例提示用户选择视图选项。如果用户选择查看所有的视图,则将 CustomViewsOnly属性设置为 False。如果用户选择只查看自定义的视图,则将 CustomViewsOnly属性设置为 True。属性更改后,更改的结果就会显示给用户。


Sub SetCusView()
'Sets the CustomViewsOnly property depending on the user's response
    Dim olApp As Outlook.Application
    Dim nmsName As NameSpace
    Dim fldFolder As MAPIFolder
    Dim lngAns As Long
    Set olApp = Outlook.Application
    Set nmsName = olApp.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 MAPIFolder, ByVal lngAns As Long)
'Modifies the CustomViewsOnly property to display views on the Views menu
    If lngAns = vbYes Then
        fldFolder.CustomViewsOnly = True
    Else
        fldFolder.CustomViewsOnly = False
    End If
    'Display only custom views
    If lngAns = vbYes Then
       MsgBox "The " & fldFolder.Name & " folder will now display only custom views."
    'display all views
    Else
       MsgBox "The " & fldFolder.Name & " folder will now display all views."
    End If
End Sub

上页:Outlook VBA教程:CustomerID属性 下页:Outlook VBA教程:DateCompleted属性

Outlook VBA教程:CustomViewsOnly属性:相关链接

Outlook VBA教程:DateCompleted属性 Outlook VBA教程:DayOfMonth属性
Outlook VBA教程:DayOfWeekMask属性 Outlook VBA教程:DefaultItemType属性
Outlook VBA教程:DefaultMessageClass属性 Outlook VBA教程:DeferredDeliveryTime属性
Outlook VBA教程:DelegationState属性 Outlook VBA教程:Delegator属性
Outlook VBA教程:DeleteAfterSubmit属性 Outlook VBA教程:Deleted属性
Outlook VBA教程:Department属性 Outlook VBA教程:Description属性
Outlook VBA教程:Dirty属性 Outlook VBA教程:DisplayName属性
Outlook VBA教程:DisplayType属性 Outlook VBA教程:DLName属性
Outlook VBA教程:DocPosted属性 Outlook VBA教程:DocPrinted属性
Outlook VBA教程:DocRouted属性 Outlook VBA教程:DocSaved属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号