Outlook VBA教程:ViewType属性

应用于 OutlookBarGroup对象的 ViewType属性。

返回或设置指定 Outlook 面板组所显示的图标视图。OlOutlookBarViewType 常量,可读写。

OlOutlookBarViewType 可为以下 OlOutlookBarViewType 常量之一。
olLargeIcon
olSmallIcon

expression.ViewType

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

应用于 View对象的 ViewType属性。

返回当前视图的类型。OlViewType 常量,只读。

OlViewType 可为以下 OlViewType 常量之一。
olCalendarView
olCardView
olIconView
olTableView
olTimelineView

expression.ViewType

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

VBA示例

应用于 OutlookBarGroup对象。

以下 Microsoft Visual Basic/Visual Basic for Applications 示例将第一个 Outlook 面板组在大图标视图和小图标视图之间切换。


Dim myOlApp As New Outlook.Application
Dim myOlBar As Outlook.OutlookBarPane
Dim myOlGroup As Outlook.OutlookBarGroup
Set myOlBar = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
Set myOlGroup = myOlBar.Contents.Groups.Item(1)
If myOlGroup.ViewType = olLargeIcon Then
    myOlGroup.ViewType = olSmallIcon
Else
    myOlGroup.ViewType = olLargeIcon
End If

如果使用 VBScript,您不必创建Application对象,而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。


Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar")
Set myOlGroup = myOlBar.Contents.Groups.Item(1)
If myOlGroup.ViewType = 0 Then
    myOlGroup.ViewType = 1
Else
    myOlGroup.ViewType = 0
End If

应用于 View对象时。

以下示例显示用户“收件箱”中所有视图的名称和类型。


Sub DisplayViewMode()
'Displays the names and view modes for all views
    Dim olApp As Outlook.Application
    Dim objName As NameSpace
    Dim objViews As Views
    Dim objView As View
    Dim strTypes As String
    Set olApp = Outlook.Application
    Set objName = olApp.GetNamespace("MAPI")
    Set objViews = objName.GetDefaultFolder(olFolderInbox).Views
    'Collect names and view types for all views
    For Each objView In objViews
        strTypes = strTypes & objView.Name & vbTab & vbTab & objView.ViewType & vbCr
    Next objView
    'Display message box
    MsgBox "Current Inbox Views and Viewtypes:" & vbCr & _
        vbCr & strTypes
End Sub

上页:Outlook VBA教程:Views属性 下页:Outlook VBA教程:Visible属性

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

Outlook VBA教程:Visible属性 Outlook VBA教程:VotingOptions属性
Outlook VBA教程:VotingResponse属性 Outlook VBA教程:WebPage属性
Outlook VBA教程:WebViewOn属性 Outlook VBA教程:WebViewURL属性
Outlook VBA教程:Width属性 Outlook VBA教程:WindowState属性
Outlook VBA教程:WordEditor属性 Outlook VBA教程:XML属性
Outlook VBA教程:YomiCompanyName属性 Outlook VBA教程:YomiFirstName属性
Outlook VBA教程:YomiLastName属性 Outlook VBA教程:Microsoft Outlook对象
Outlook VBA教程:不支持的语言元素 Outlook VBA教程:添加自定义属性页
Outlook VBA教程:通过 VBScript 使 Office 窗体具有自动功能 Outlook VBA教程:从其他 Microsoft Office 应用程序自动化 Outlook
Outlook VBA教程:通过 Visual Basic 应用程序使 Outlook 自动化 Outlook VBA教程:使用 COM 加载项自定义 Outlook
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号