Views.Add-Methode (Outlook)

  • Artikel

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.

HinwBemerkungeneise

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 VBA-Beispiel (Visual Basic for Applications) 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.