Auf Englisch lesen

Freigeben über


Views-Objekt (Outlook)

Enthält eine Auflistung aller View -Objekte im aktuellen Ordner.

Hinweise

Verwenden Sie die Views -Eigenschaft des Folder -Objekts, um die Views -Auflistung zurückzugeben. Verwenden Sie Ansichten (Index), wobei index der Name oder die Position des Objekts innerhalb der Auflistung ist, um ein einzelnes View-Objekt zurückzugeben.

Use the Add method of the views collection to add a new view to the collection.

Verwenden Sie die Remove -Methode, um eine Ansicht aus der Auflistung zu entfernen.

Beispiel

Das folgende Beispiel gibt ein View -Objekt vom Typ olTableView mit dem Namen Table View zurück. Stellen Sie vor dem Ausführen dieses Beispiels sicher, dass eine Ansicht namens "Table View" vorhanden ist.

Sub GetView() 
 
 'Returns a view called Table View 
 
 Dim objName As NameSpace 
 
 Dim objViews As Views 
 
 Dim objView As View 
 
 
 
 Set objName = Application.GetNamespace("MAPI") 
 
 Set objViews = objName.GetDefaultFolder(olFolderInbox).Views 
 
 'Return a view called Table View 
 
 Set objView = objViews.Item("Table View") 
 
End Sub

Das folgende Beispiel fügt eine neue Ansicht vom Typ OlIconView im Ordner "Notizen" des Benutzers.

Hinweis

[!HINWEIS] Die Add -Methode schlägt fehl, wenn bereits eine Ansicht mit dem gleichen Namen vorhanden ist.

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

Im nachfolgenden Beispiel wird die oben erstellte Ansicht, "New Icon View Type", aus der Auflistung entfernt.

Sub DeleteView() 
 
 'Deletes a view from the collection 
 
 Dim objName As NameSpace 
 
 Dim objViews As Views 
 
 Dim objNewView As View 
 
 
 
 Set objName = Application.GetNamespace("MAPI") 
 
 Set objViews = objName.GetDefaultFolder(olFolderNotes).Views 
 
 objViews.Remove ("New Icon View Type") 
 
End Sub

Ereignisse

Methoden

Name
Add
Item
Remove

Eigenschaften

Siehe auch

Outlook-Objektmodellreferenz

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.