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 のサポートおよびフィードバックを参照してください。