创建 View 对象的新实例。
expression.Copy(Name, SaveOption)
expression 必选。该表达式返回上述对象之一。
Name 必选,String 类型。代表新 View 对象的名称。
SaveOption 可选,OlViewSaveOption 常量。定义 View 对象权限的保存选项。
OlViewSaveOption 可为下列 OlViewSaveOption 常量之一。 |
olViewSaveOptionAllFoldersOfType |
olViewSaveOptionThisFolderEveryone |
olViewSaveOptionThisFolderOnlyMe |
创建对象的另一个实例。
expression.Copy
expression 必选。该表达式返回上述对象之一。
以下示例创建名为“New Table View”的视图的副本,并将其保存到当前文件夹。
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