Поделиться через

Метод ContactItem.Copy (Outlook)

  • Статья

Создает другой экземпляр объекта .

Синтаксис

expression. Копировать

Выражение Переменная, представляющая объект ContactItem .

Пример

Этот Visual Basic для приложений примере создает сообщение электронной почты, задает для параметра 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 и обратная связь.