通过

Outlook) (ContactItem.Copy 方法

  • 项目

创建对象的另一个实例。

语法

表达式。复制

表达 一个代表 ContactItem 对象的变量。

示例

本Visual Basic for Applications示例创建一封电子邮件，将 Subject 设置为“Speeches”，使用 Copy 方法进行复制，然后将副本移动到收件箱文件夹中名为“已保存邮件”的新创建的电子邮件文件夹中。

Sub CopyItem() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myFolder As Outlook.Folder 
 
 Dim myNewFolder As Outlook.Folder 
 
 Dim myItem As Outlook.MailItem 
 
 Dim myCopiedItem As Outlook.MailItem 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) 
 
 Set myNewFolder = myFolder.Folders.Add("Saved Mail", olFolderDrafts) 
 
 Set myItem = Application.CreateItem(olMailItem) 
 
 myItem.Subject = "Speeches" 
 
 Set myCopiedItem = myItem.Copy 
 
 myCopiedItem.Move myNewFolder 
 
End Sub

另请参阅

创建 ContactItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。