CopyTo 方法

将当前文件夹完整地复制到目标文件夹中。返回代表新副本的 MAPIFolder 对象。

expression  必选。该表达式返回 MAPIFolder 对象（当前文件夹）。

DestinationFolder  必选的 MAPIFolder 对象（复制的文件夹的目标文件夹）。

示例

本 Visual Basic for Applications 示例使用 CopyTo 方法将当前文件夹（此时为默认的“联系人”文件夹）复制到默认的“收件箱”文件夹中。

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myInboxFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myCurrentFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
Set myNewFolder = myCurrentFolder.CopyTo(myInboxFolder)

如果使用 VBScript，则不创建 Application 对象，而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。

Set myNameSpace = Application.GetNameSpace("MAPI")
Set myInboxFolder = myNameSpace.GetDefaultFolder(6)
Set myCurrentFolder = myNameSpace.GetDefaultFolder(10)
Set myNewFolder = myCurrentFolder.CopyTo(myInboxFolder)