Propriété Folder.CustomViewsOnly (Outlook)

Article
04/07/2023

Renvoie ou définit une valeur de type Boolean qui détermine quels affichages apparaissent dans le menu Affichage d'un dossier donné. Lecture-écriture.

Syntaxe

expression. CustomViewsOnly

expression Variable qui représente un objet Folder.

Remarques

Si cette propriété prend la valeur True, seuls les affichages créés par l'utilisateur apparaissent dans le menu.

Cette propriété fonctionne uniquement sur le menu Affichage. Cela n’affecte pas l’affichage des vues dans le volet de navigation.

Exemple

L'exemple de code suivant montre comment inviter l'utilisateur à sélectionner une option d'affichage. Si l'utilisateur choisit d'avoir accès à tous les affichages, la propriété CustomViewsOnly prend la valeur False. S'il choisit d'avoir accès uniquement aux affichages personnalisés, la propriété CustomViewsOnly prend la valeur True. Une fois cette propriété modifiée, le résultat de la modification apparaît dans l'interface utilisateur.

Sub SetCusView() 
 
 'Sets the CustomViewsOnly property depending on the user's response 
 
 Dim nmsName As Outlook.NameSpace 
 
 Dim fldFolder As Outlook.Folder 
 
 Dim lngAns As Long 
 
 
 
 Set nmsName = Application.GetNamespace("MAPI") 
 
 Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox) 
 
 'Prompt user for input 
 
 lngAns = MsgBox( _ 
 
 "Would you like to view only custom views in the View menu?", vbYesNo) 
 
 Call SetVal(fldFolder, lngAns) 
 
End Sub 
 
 
 
Sub SetVal(ByRef fldFolder As Folder, ByVal lngAns As Long) 
 
 'Modifies the CustomViewsOnly property to display views on the View menu 
 
 If lngAns = vbYes Then 
 
 fldFolder.CustomViewsOnly = True 
 
 Else 
 
 fldFolder.CustomViewsOnly = False 
 
 End If 
 
 'Display only custom views 
 
 If lngAns = vbYes Then 
 
 MsgBox "The View menu for the " _ 
 
 & fldFolder.Name & " folder will now display only custom views." 
 
 'Display all views 
 
 Else 
 
 MsgBox "The View menu for the " _ 
 
 & fldFolder.Name & " folder will now display all views." 
 
 End If 
 
End Sub

Voir aussi

Folder, objet

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.

Partager via