返回指定视图可用的文件夹和视图的读取权限。OlViewSaveOption 常量。SaveOption 属性在使用 Add 方法创建 View 对象时设置。只读。
OlViewSaveOption 可为下列 OlViewSaveOption 常量之一。 |
olViewSaveOptionAllFoldersOfType 所有这种类型的文件夹都可以使用此视图。 |
olViewSaveOptionThisFolderEveryone 所有能访问当前文件夹的用户都可以使用此视图。此视图只与该文件夹关联。 |
olViewSaveOptionThisFolderOnlyMe 此视图只与当前文件夹关联,只有该用户能够访问此视图。 |
expression.SaveOption
expression 必选。该表达式返回 View 对象。
以下示例显示能被“便笺”文件夹中所有用户访问的视图的名称。
Sub DisplayPublicViews()
'Displays the names of all views that are available to
'all users of this folder
Dim olApp As Outlook.Application
Dim objName As NameSpace
Dim objViews As Views
Dim objView As View
Dim strSaveOption As String
Set olApp = Outlook.Application
Set objName = olApp.GetNamespace("MAPI")
Set objViews = objName.GetDefaultFolder(olFolderNotes).Views
For Each objView In objViews
If objView.SaveOption = olViewSaveOptionThisFolderEveryone Then
'if list is empty, start list
If strSaveOption = "" Then
strSaveOption = "The following views are available" & _
" to all users:" & vbCr & vbCr & objView.Name & vbCr
Else
'If not empty, add names to list
strSaveOption = strSaveOption & _
objView.Name & vbCr
End If
End If
Next objView
'If views exist display names
If strSaveOption <> "" Then
MsgBox strSaveOption
End If
End Sub