View.SaveOption プロパティ (Outlook)

示します指定されたビューを使用できるフォルダーを指定して 、ビューに関連付けられている読み取りアクセス許可を返します。 値の取得のみ可能です。

構文

式。 SaveOption

式View オブジェクトを表す変数。

注釈

SaveOption プロパティは、 Views.Add メソッドを使用して View オブジェクトの作成時に設定されています。

例

次の Microsoft Visual Basic for Applications (VBA) の例は、 メモ フォルダー内ですべてのユーザーがアクセスできるすべてのビューの名前を表示します。

次の例では、すべてのユーザーに利用可能なすべてのビューのユーザー インターフェイスをロックします。 サブルーチン LockView は 、View オブジェクトと、View インターフェイスがロックされるかどうかを示す ブール 値を受け取ります。 この例では、常に True に設定する ブール 値を持つに、プロシージャが呼び出されます。

Sub LocksPublicViews() 
 
 'Locks the interface of all views that are available to 
 
 'all users of this folder. 
 
 Dim objName As Outlook.NameSpace 
 
 Dim objViews As Outlook.Views 
 
 Dim objView As Outlook.View 
 
 
 
 Set objName = Application.GetNamespace("MAPI") 
 
 Set objViews = objName.GetDefaultFolder(olFolderNotes).Views 
 
 For Each objView In objViews 
 
 If objView.SaveOption = olViewSaveOptionThisFolderEveryone Then 
 
 Call LockView(objView, True) 
 
 End If 
 
 Next objView 
 
End Sub 
 
 
 
Sub LockView(ByRef objView As View, ByVal blnAns As Boolean) 
 
 'Locks the user interface of the view. 
 
 'Accepts and returns a View object and user response. 
 
 With objView 
 
 If blnAns = True Then 
 
 'if true lock UI 
 
 .LockUserChanges = True 
 
 .Save 
 
 Else 
 
 'if false don't lock UI 
 
 .LockUserChanges = False 
 
 End If 
 
 End With 
 
End Sub

関連項目

ビュー オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。