Lire en anglais

Partager via


Views, objet (Outlook)

Contient une collection de tous les objets View dans le dossier actif.

Remarques

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.

Exemple

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

Événements

Méthodes

Propriétés

Voir aussi

Référence du modèle objet Outlook

Assistance et commentaires

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.