BusinessCardView.SaveOption プロパティ (Outlook)

  • [アーティクル]

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

構文

式。 SaveOption

式BusinessCardView オブジェクトを返す式。

注釈

SaveOption プロパティの値は、 Views コレクションの Add メソッドを使用して BusinessCardView オブジェクトを作成するときに設定されています。

例

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

Sub LockPublicViews() 
 
 
 
 Dim objName As NameSpace 
 
 Dim objViews As Views 
 
 Dim objView As View 
 
 
 
 ' Get the Views collection for the Contacts default folder. 
 
 Set objName = Application.GetNamespace("MAPI") 
 
 Set objViews = objName.GetDefaultFolder(olFolderContacts).Views 
 
 
 
 ' Enumerate the Views collection and lock the user 
 
 ' interface for any view that can be accessed by 
 
 ' all users who have access to the Notes default folder. 
 
 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) 
 
 
 
 ' Examine the view object. 
 
 With objView 
 
 If blnAns = True Then 
 
 ' Lock the user interface and 
 
 ' save the view 
 
 .LockUserChanges = True 
 
 .Save 
 
 Else 
 
 ' Unlock the user interface of the view. 
 
 .LockUserChanges = False 
 
 End If 
 
 End With 
 
 
 
End Sub

関連項目

BusinessCardView オブジェクト

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

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