Views, objet (Outlook)
Contient une collection de tous les objets View dans le dossier actif.
Utilisez la propriété Views de l’objet Folder pour renvoyer la collection Views. Utilisez Views (index),où index est le nom ou la position de l’objet dans la collection, pour renvoyer un seul objet View .
Utilisez la méthode Add de la collection views pour ajouter une nouvelle vue à la collection.
Utilisez la méthode Remove pour supprimer une vue de la collection.
L'exemple suivant renvoie un objet View de type olTableView, appelé Table View. Avant d'exécuter cet exemple, vérifiez qu'il existe bien un affichage portant le nom « Table View ».
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
L'exemple suivant indique comment ajouter un nouvel affichage de type olIconView au dossier Notes de l'utilisateur.
Notes
La méthode Add échoue s'il existe déjà un affichage du même nom.
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
L'exemple suivant montre comment supprimer l'affichage ci-dessus, « New Icon View Type », de la collection.
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
Nom |
---|
ViewAdd |
ViewRemove |
Référence du modèle objet Outlook
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.