Outlook VBA教程:CopyTo方法

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

expression.CopyTo(DestinationFolder)

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

DestinationFolder  必选的 MAPIFolder对象(复制的文件夹的目标文件夹)。

VBA示例

本 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)

上页:Outlook VBA教程:CopyFile方法 下页:Outlook VBA教程:CreateItem方法

Outlook VBA教程:CopyTo方法:相关链接

Outlook VBA教程:CreateItem方法 Outlook VBA教程:CreateItemFromTemplate方法
Outlook VBA教程:CreateObject方法 Outlook VBA教程:CreateRecipient方法
Outlook VBA教程:Delete方法 Outlook VBA教程:Details方法
Outlook VBA教程:Dial方法 Outlook VBA教程:Dismiss方法
Outlook VBA教程:Display方法 Outlook VBA教程:Execute方法
Outlook VBA教程:Find方法 Outlook VBA教程:FindNext方法
Outlook VBA教程:Forward方法 Outlook VBA教程:ForwardAsVcal方法
Outlook VBA教程:ForwardAsVcard方法 Outlook VBA教程:FreeBusy方法
Outlook VBA教程:GetAssociatedAppointment方法 Outlook VBA教程:GetAssociatedTask方法
Outlook VBA教程:GetDefaultFolder方法 Outlook VBA教程:GetExplorer方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号