Метод Views.Add (Outlook)

Статья
04/07/2023

Создает новое представление в коллекции Views .

Синтаксис

expression. Add (Name, ViewType, SaveOption)

Выражение Переменная, представляющая объект Views .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Обязательный	String	Имя нового представления.
ViewType	Обязательный	OlViewType	Тип нового представления.
SaveOption	Необязательный	OlViewSaveOption	Параметр сохранения, указывающий разрешения для нового представления: olViewSaveOptionAllFoldersOfType Доступ к представлению можно получить во всех папках этого типа. olViewSaveOptionThisFolderEveryOne Доступ к представлению могут получить только все пользователи в этой папке. olViewSaveOptionThisFolderOnlyMe Доступ к представлению в этой папке может получить только пользователь.

Возвращаемое значение

Объект View , представляющий новое представление.

Замечания

При добавлении представления в коллекцию Views папки, которая не является текущей папкой, необходимо сначала сохранить копию объекта коллекции Views , а затем добавить представление в этот объект коллекции, как показано в следующем примере кода. Это решение для существующей проблемы, которая в противном случае приведет к сбою вызова View.Apply для добавленного представления .

Sub CalendarView() 
 Dim calView As Outlook.View 
 Dim vws As Views 
 
 Set Application.ActiveExplorer.CurrentFolder = Application.Session.GetDefaultFolder(olFolderInbox) 
 ' Current folder is Inbox; add a View to the Calendar folder which is not the current folder 
 ' Keep a copy of the object for the Views collection for the Calendar 
 Set vws = Application.Session.GetDefaultFolder(olFolderCalendar).Views 
 ' Add the View to this Views collection object 
 Set calView = vws.Add("New Calendar", olCalendarView, olViewSaveOptionThisFolderEveryone) 
 calView.Save 
 ' This Apply call will be fine 
 calView.Apply 
End Sub

Пример

В следующем примере Visual Basic для приложений (VBA) создается новое представление с именем New Table и сохраняется в переменной с именем objNewView.

Sub CreateView() 
 'Creates a new view 
 Dim objName As Outlook.NameSpace 
 Dim objViews As Outlook.Views 
 Dim objNewView As Outlook.View 
 
 Set objName = Application.GetNamespace("MAPI") 
 Set objViews = objName.GetDefaultFolder(olFolderInbox).Views 
 Set objNewView = objViews.Add(Name:="New Table", _ 
 ViewType:=olTableView, SaveOption:=olViewSaveOptionThisFolderEveryone) 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через