BusinessCardView.Copy (Outlook)

Creates a new View object based on the existing BusinessCardView object.

Copy (Name, SaveOption)

Sub CopyBusinessCardView() 
 
 
 
 Dim objName As NameSpace 
 
 Dim objViews As Views 
 
 Dim objNewView As BusinessCardView 
 
 
 
 ' Get the Views collection of the Contacts default folder. 
 
 Set objName = Application.GetNamespace("MAPI") 
 
 Set objViews = objName.GetDefaultFolder(olFolderContacts).Views 
 
 
 
 ' Copy the existing view. 
 
 Set objNewView = objViews("Card View").Copy( _ 
 
 "New Card View", _ 
 
 olViewSaveOptionThisFolderEveryone) 
 
 
 
End Sub

Arguments

The following argument is required

Name (String) - The name of the new view.

Optional arguments

The following argument is optional

SaveOption (OlViewSaveOption) - The save option for the new view.

Possible return values are olViewSaveOptionAllFoldersOfType - Indicates that the view is available in all folders of the same type, olViewSaveOptionThisFolderEveryone - Indicates that the view is only available in the current folder and is available to all users, olViewSaveOptionThisFolderOnlyMe - Indicates that the view is only available in the current folder and is only available to the current Outlook user.