Outlook VBA教程:Copy方法

应用于 View对象的 Copy方法。

创建 View对象的新实例。

expression.Copy(Name, SaveOption)

expression  必选。该表达式返回上述对象之一。

Name  必选,String 类型。代表新 View对象的名称。

SaveOption  可选,OlViewSaveOption 常量。定义 View对象权限的保存选项。

OlViewSaveOption 可为下列 OlViewSaveOption 常量之一。
olViewSaveOptionAllFoldersOfType
olViewSaveOptionThisFolderEveryone
olViewSaveOptionThisFolderOnlyMe

应用于 AppointmentItem、ContactItem、DistListItem、DocumentItem、JournalItem、MailItem、MeetingItem、NoteItem、PostItem、RemoteItem、ReportItem、TaskItem、TaskRequestAcceptItem、TaskRequestDeclineItem、TaskRequestItem 和 TaskRequestUpdateItem对象的 Copy方法。

创建对象的另一个实例。

expression.Copy

expression  必选。该表达式返回上述对象之一。

VBA示例

应用于 View对象时。

以下示例创建名为“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

应用于 AppointmentItem、ContactItem、DistListItem、DocumentItem、JournalItem、MailItem、MeetingItem、NoteItem、PostItem、RemoteItem、ReportItem、TaskItem、TaskRequestAcceptItem、TaskRequestDeclineItem、TaskRequestItem 和 TaskRequestUpdateItem对象时。

本 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

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

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

Outlook VBA教程:CopyFile方法 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方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号