TableView.AutoPreview (Outlook)

Returns or sets an OlAutoPreview constant that determines how items are automatically previewed by the TableView object. Possible return values are olAutoPreviewAll - All items are automatically previewed, olAutoPreviewNone - No items are automatically previewed, olAutoPreviewUnread - Only unread items are automatically previewed.

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