Folder.CustomViewsOnly-Eigenschaft (Outlook)

  • Artikel

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.

HinwBemerkungeneise

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

Folder-Objekt

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.