Views.Add-Methode (Outlook)
Erstellt eine neue Ansicht in der Views-Auflistung.
Ausdruck. Add (Name, ViewType, SaveOption)
Ausdruck Eine Variable, die ein Views-Objekt darstellt.
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Name | Erforderlich | String | Der Name der neuen Ansicht. |
ViewType | Erforderlich | OlViewType | Der Typ der neuen Ansicht. |
SaveOption | Optional | OlViewSaveOption | Die Speicheroption, die die Berechtigungen der neuen Ansicht angibt:
|
Ein View -Objekt, das die neue Ansicht darstellt.
Wenn Sie einer Views-Auflistung eines Ordners, der nicht der aktuelle Ordner ist, eine View-Auflistung hinzufügen, müssen Sie zuerst eine Kopie des Views-Auflistungsobjekts speichern und dann das View-Objekt zu diesem Auflistungsobjekt hinzufügen, wie im folgenden Codebeispiel gezeigt. Dies ist eine Problembehebung für ein vorhandenes Problem, das andernfalls dazu führt, dass ein Aufruf von View.Apply für die hinzugefügte Ansicht fehlschlägt.
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
Im folgenden beispiel für Visual Basic for Applications (VBA) wird eine neue Ansicht mit dem Namen Neue Tabelle erstellt und in einer Variablen namens objNewView
gespeichert.
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
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.