Свойство View.SaveOption (Outlook)
Возвращает константу OlViewSaveOption , указывающую папки, в которых доступно указанное представление, и разрешения на чтение, присоединенные к представлению. Только для чтения.
Синтаксис
выражение. SaveOption
Выражение Переменная, представляющая объект View .
Замечания
Свойство SaveOption задается при создании объекта View с помощью метода Views.Add .
Пример
В следующем примере Microsoft Visual Basic для приложений (VBA) отображаются имена всех представлений, к которым могут обращаться все пользователи в папке Заметки.
В следующем примере пользовательский интерфейс блокируется для всех представлений, доступных всем пользователям. Подпрограмма LockView принимает объект 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 и обратная связь.