全部显示创建 View 对象的新实例。
expression.Copy(Name, SaveOption)
expression 必选。该表达式返回上述对象之一。
Name 必选，String 类型。代表新 View 对象的名称。
SaveOption 可选，OlViewSaveOption 常量。定义 View 对象权限的保存选项。
| OlViewSaveOption 可为下列 OlViewSaveOption 常量之一。 |
| olViewSaveOptionAllFoldersOfType |
| olViewSaveOptionThisFolderEveryone |
| olViewSaveOptionThisFolderOnlyMe |
创建对象的另一个实例。
expression.Copy
expression 必选。该表达式返回上述对象之一。
以下示例创建名为“New Table View”的视图的副本，并将其保存到当前文件夹。
应用于 View 对象的 Copy 方法。Sub CopyView()
'Copies a view
Dim olApp As Outlook.Application
Dim objViews As Views
Dim objNewView As View
Set olApp = Outlook.Application
Set objViews = _
olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Views
'Create copy of View object
Set objNewView = objViews("New Table View").Copy(Name:="Table View Copy", _
SaveOption:=olViewSaveOptionThisFolderEveryone)
End Sub本 Visual Basic for Applications 示例创建一个邮件，并将 Subject 设置为“Speeches”，使用 Copy 方法复制该邮件，然后将副本移至“任务”文件夹内新建的名为“Saved Mail”的邮件文件夹中。
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
Set myNewFolder = myFolder.Folders.Add("Saved Mail", olFolderDrafts)
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Subject = "Speeches"
Set myCopiedItem = myItem.Copy
myCopiedItem.Move myNewFolder如果使用 VBScript，您不必创建 Application 对象，而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。
Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(6)
Set myNewFolder = myFolder.Folders.Add("Saved Mail", 16)
Set myItem = Application.CreateItem(0)
myItem.Subject = "Speeches"
Set myCopiedItem = myItem.Copy
myCopiedItem.Move myNewFolder