Folder.CustomViewsOnly-Eigenschaft (Outlook)
Zurückgeben oder Festlegen einer vom Typ Boolean, der bestimmt, welche Ansichten im Menü Ansicht für einen bestimmten Ordner angezeigt werden. Lese-/Schreibzugriff.
Syntax
Ausdruck. CustomViewsOnly
Ausdruck Eine Variable, die ein Folder-Objekt darstellt.
Hinweise
Bei True werden nur vom Benutzer erstellte Ansichten im Menü angezeigt.
Diese Eigenschaft zeigt nur im Menü Ansicht einen Effekt. Dies wirkt sich nicht auf die Anzeige von Ansichten im Navigationsbereich aus.
Beispiel
Das folgende Beispiel fordert den Benutzer eine Ansichtsoption aus. Wenn der Benutzer entscheidet, alle Ansichten anzuzeigen, wird die CustomViewsOnly -Eigenschaft auf False festgelegt. Wenn der Benutzer entscheidet, nur benutzerdefinierte Ansichten anzuzeigen, wird die CustomViewsOnly -Eigenschaft auf True festgelegt. Sobald die Eigenschaft geändert wird, wird das Ergebnis der Änderung in der Benutzeroberfläche angezeigt werden.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.