Folder.CustomViewsOnly プロパティ (Outlook)
ブール値 で指定されたフォルダーの [ 表示] メニューに表示されるビューを決定する設定または返します。 値の取得と設定が可能です。
構文
式。 CustomViewsOnly
式Folder オブジェクトを表す変数。
注釈
かどうかに True を設定するだけのユーザーが作成したビューに表示されます、メニューです。
このプロパティは [ 表示] メニューでのみ有効です。 ナビゲーション ウィンドウでのビューの表示には影響しません。
例
次の使用例は、表示オプションを選択かどうかを求めるメッセージを表示します。 場合は [すべてのビューを表示すると、 CustomViewsOnly プロパティが False に設定します。 ユーザー選択した場合のみカスタム ビューを表示するのには、 CustomViewsOnly プロパティが True に設定します。 プロパティを変更すると、ユーザー インターフェイスの変更の結果を確認できます。
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
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。