Метод Views.Add (Outlook)
Создает новое представление в коллекции Views .
expression. Add (Name, ViewType, SaveOption)
Выражение Переменная, представляющая объект Views .
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Name | Обязательный | String | Имя нового представления. |
ViewType | Обязательный | OlViewType | Тип нового представления. |
SaveOption | Необязательный | OlViewSaveOption | Параметр сохранения, указывающий разрешения для нового представления:
|
Объект 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 и обратная связь.