Outlook VBA教程:Views集合

   
多个对象
Views
多个对象

当前文件夹中所有View对象的集合。

使用 Views集合

使用 Explorer MAPIFolder对象的 Views属性返回 Views集合。使用 Views.Item(index) 返回单个 View对象,其中 index 是对象名称或对象在集合中的位置。以下示例返回一个名为“Table View”的 olTableView 类型的 View对象。

Sub GetView()
'Returns a view called Table View
    Dim olApp As Outlook.Application
    Dim objName As NameSpace
    Dim objViews As Views
    Dim objView As View
    Set olApp = Outlook.Application
    Set objName = olApp.GetNamespace("MAPI")
    Set objViews = objName.GetDefaultFolder(olFolderInbox).Views
    'Return a view called Table View
    Set objView = objViews.Item("Table View")
End Sub

使用 Views集合的Add方法向集合添加新的视图。以下示例将一个 olIconView 类型的视图添加到用户的“便笺”文件夹中。

注意  如果已存在同名的视图,Add方法将执行失败。


Sub CreateView()
'Creates a new view
    Dim olApp As Outlook.Application
    Dim objName As NameSpace
    Dim objViews As Views
    Dim objNewView As View
    Set olApp = Outlook.Application
    Set objName = olApp.GetNamespace("MAPI")
    Set objViews = objName.GetDefaultFolder(olFolderNotes).Views
    Set objNewView = objViews.Add(Name:="New Icon View Type", _
                     ViewType:=olIconView, SaveOption:=olViewSaveOptionThisFolderEveryone)
End Sub

使用Remove方法将视图从集合中删除。以下示例将上面的“New Icon View Type”视图从集合中删除。


Sub DeleteView()
'Deletes a view from the collection
    Dim olApp As Outlook.Application
    Dim objName As NameSpace
    Dim objViews As Views
    Dim objNewView As View
    Set olApp = Outlook.Application
    Set objName = olApp.GetNamespace("MAPI")
    Set objViews = objName.GetDefaultFolder(olFolderNotes).Views
    objViews.Remove ("New Icon View Type")
End Sub

上页:Outlook VBA教程:View对象 下页:Outlook VBA教程:Outlook COM 加载项模板

Outlook VBA教程:Views集合:相关链接

Outlook VBA教程:Outlook COM 加载项模板 Outlook VBA教程:对 COM 加载项的支持
Outlook VBA教程:对联系人链接的支持 Outlook VBA教程:对自定义属性页的支持
Outlook VBA教程:对文件夹同步的支持 Outlook VBA教程:Outlook 中的 Visual Basic for Applications
Outlook VBA教程:Account属性 Outlook VBA教程:Actions属性
Outlook VBA教程:ActualWork属性 Outlook VBA教程:Address属性
Outlook VBA教程:AddressBookName属性 Outlook VBA教程:AddressEntries属性
Outlook VBA教程:AddressEntry属性 Outlook VBA教程:AddressLists属性
Outlook VBA教程:AllDayEvent属性 Outlook VBA教程:AlternateRecipientAllowed属性
Outlook VBA教程:Anniversary属性 Outlook VBA教程:AnswerWizard属性
Outlook VBA教程:AppFolders属性 Outlook VBA教程:Application属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号