共用方式為

Outlook) (ContactItem.Copy 方法

  • 發行項

會建立物件的另一個執行個體。

語法

運算式。複製

表達 代表 ContactItem 物件的 變數。

範例

這個 Visual Basic for Applications 範例會建立電子郵件訊息、將 [主旨 ] 設定為 [郵件]、使用 Copy 方法來複製它，然後將複本移至 [收件匣] 資料夾中名為 「Saved Mail」 的新建立電子郵件資料夾。

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 支援與意見反應。