Propriété BusinessCardView.SaveOption (Outlook)
Renvoie une constante OlViewSaveOption qui spécifie les dossiers dans lesquels la vue spécifiée est disponible et les autorisations de lecture attachées à la vue. En lecture seule.
Syntaxe
expression. SaveOption
Expression Expression qui renvoie un objet BusinessCardView .
Remarques
La valeur de la propriété SaveOption est définie lorsque l’objet BusinessCardView est créé à l’aide de la méthode Add de la collection Views.
Exemple
L’exemple Visual Basic pour Applications (VBA) ci-dessous indique comment verrouiller l’interface utilisateur pour tous les affichages disponibles à l’ensemble des utilisateurs. La sous-routine LockView accepte l’objet View et une valeur booléenne qui indique si l’interface utilisateur View est verrouillée. Dans cet exemple, la procédure est toujours appelée avec la valeur booléenne définie sur 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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.