Views.Add, méthode (Outlook)
Crée un affichage dans la collection Views.
Syntaxe
expression. Add (Name, ViewType, SaveOption)
Expression Variable qui représente un objet Views .
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Name | Obligatoire | String | Nom du nouvel affichage. |
ViewType | Requis | OlViewType | Type du nouvel affichage. |
SaveOption | Facultatif | OlViewSaveOption | Option d’enregistrement qui spécifie les autorisations de la nouvelle vue :
|
Valeur renvoyée
Objet View qui représente la nouvelle vue.
Remarques
Si vous ajoutez une vue à une collection Views d’un dossier qui n’est pas le dossier actif, vous devez d’abord enregistrer une copie de l’objet de collection Views , puis ajouter l’objet View à cet objet de collection, comme indiqué dans l’exemple de code suivant. Il s’agit d’une solution de contournement pour un problème existant qui entraîne l’échec d’un appel à View.Apply pour l’affichage ajouté.
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
Exemple
L’exemple Visual Basic pour Applications (VBA) suivant crée une vue appelée Nouvelle table et la stocke dans une variable appelée objNewView
.
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
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour