Outlook) (View.SaveOption 屬性
會傳回 OlViewSaveOption 常數,指定指定之檢視可用的資料夾,以及附加至檢視的讀取權限。 唯讀。
語法
expression。 SaveOption
表達 代表 View 物件的變數。
註解
使用Views.Add方法建立View物件時,會設定SaveOption屬性。
範例
在下列 Microsoft Visual Basic for Applications (VBA) 範例中,會顯示所有使用者可在 [記事] 資料夾中存取的所有檢視名稱。
在下列範例中,會鎖定所有使用者可用之所有檢視的使用者介面。 副程式 LockView
會接受 View 物件和 布林 值,指出 View 介面是否會鎖定。 在此範例中,一律會呼叫程式,並將 布林 值設定為 True。
Sub LocksPublicViews()
'Locks the interface of all views that are available to
'all users of this folder.
Dim objName As Outlook.NameSpace
Dim objViews As Outlook.Views
Dim objView As Outlook.View
Set objName = Application.GetNamespace("MAPI")
Set objViews = objName.GetDefaultFolder(olFolderNotes).Views
For Each objView In objViews
If objView.SaveOption = olViewSaveOptionThisFolderEveryone Then
Call LockView(objView, True)
End If
Next objView
End Sub
Sub LockView(ByRef objView As View, ByVal blnAns As Boolean)
'Locks the user interface of the view.
'Accepts and returns a View object and user response.
With objView
If blnAns = True Then
'if true lock UI
.LockUserChanges = True
.Save
Else
'if false don't lock UI
.LockUserChanges = False
End If
End With
End Sub
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。