TableView.AutoPreview 属性 (Outlook)

返回或设置一个 OlAutoPreview 常量，该常量确定项目如何通过 TableView 对象自动预览。 读/写。

语法

expression。 AutoPreview

表达 一个代表 TableView 对象的变量。

示例

(VBA) 示例下面的 Visual Basic for Applications 的 自动预览 属性设置为每个 表 对象与当前 文件夹 对象相关联的 olAutoPreviewUnread 。

Private Sub PreviewUnreadOnly() 
 
 Dim objFolder As Folder 
 
 Dim objView As View 
 
 Dim objTableView As TableView 
 
 
 
 ' Retrieve a Folder object reference 
 
 ' for the current folder 
 
 Set objFolder = Application.ActiveExplorer.CurrentFolder 
 
 
 
 ' Enumerate through the Views collection for the 
 
 ' Folder object. 
 
 For Each objView In objFolder.Views 
 
 ' Check if the view is a table view. 
 
 If objView.ViewType = olTableView Then 
 
 ' Cast the View object to a TableView object. 
 
 Set objTableView = objView 
 
 
 
 ' Set the view so that only unread messages 
 
 ' are automatically previewed. 
 
 objTableView.AutoPreview = olAutoPreviewUnread 
 
 
 
 ' Save the table view. 
 
 objTableView.Save 
 
 End If 
 
 Next 
 
End Sub

另请参阅

表对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。