Views.Add-Methode (Outlook)

Artikel
10/16/2024

Erstellt eine neue Ansicht in der Views-Auflistung.

Syntax

Ausdruck. Add (Name, ViewType, SaveOption)

Ausdruck Eine Variable, die ein Views-Objekt darstellt.

Parameter

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: olViewSaveOptionAllFoldersOfType auf Die Ansicht kann in allen Ordnern dieses Typs zugegriffen werden. olViewSaveOptionThisFolderEveryone auf Die Ansicht kann in diesem Ordner nur von allen Benutzern zugegriffen werden. olViewSaveOptionThisFolderOnlyMe auf Die Ansicht kann in diesem Ordner nur vom Benutzer zugegriffen werden.

Rückgabewert

Ein View -Objekt, das die neue Ansicht darstellt.

Hinweise

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

Beispiel

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 objNewViewgespeichert.

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

Support und Feedback

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.

Freigeben über