AppointmentItem.Copy Method (Outlook)
Published: July 16, 2012
Creates another instance of an object.
This Visual Basic for Applications example creates an e-mail message, sets the Subject to "Speeches", uses the Copy method to copy it, then moves the copy into a newly created e-mail folder named "Saved Mail" within the Inbox folder.
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