Propriété Folder.CustomViewsOnly (Outlook)
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
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.