Views-Objekt (Outlook)
Enthält eine Auflistung aller View -Objekte im aktuellen Ordner.
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.
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
Name |
---|
ViewAdd |
ViewRemove |
Name |
---|
Application |
Klasse |
Count |
Parent |
Session |
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.