Items.Add 方法 (Outlook)

在資料夾的 Items 集合中建立新的 Outlook 專案。

語法

運算式。添加_Type_

表達 代表 Items 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Type	選用	Variant	新項目的 Outlook 項目類型。 指定要建立自訂表單的 MessageClass 。 可以是下列其中一個 OlItemType 常數： olAppointmentItem、 olContactItem、 olJournalItem、 olMailItem、 olNoteItem、 olPostItem或 olTaskItem，或任何有效的訊息類別。

傳回值

代表新 Outlook 專案的 Object 值。

註解

如果沒有指定，Outlook 項目的 Type 屬性預設會是資料夾的類別，如果沒有輸入上層資料夾預設則會是 MailItem。

範例

此 VBA 範例會取得目前的 Contacts 資料夾，並在其中新增 ContactItem 物件，並根據另一個連絡人，在欄位中設定一些初始值。 若要無誤的執行本範例，請以 [連絡人] 資料夾中的有效名稱來取代 'Dan Wilson'。

Sub AddContact() 
 Dim myNamespace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myItem As Outlook.ContactItem 
 Dim myOtherItem As Outlook.ContactItem 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts) 
 Set myOtherItem = myFolder.Items("Dan Wilson") 
 Set myItem = myFolder.Items.Add 
 myItem.CompanyName = myOtherItem.CompanyName 
 myItem.BusinessAddress = myOtherItem.BusinessAddress 
 myItem.BusinessTelephoneNumber = myOtherItem.BusinessTelephoneNumber 
 myItem.Display 
End Sub

這個 VBA 範例會將自訂表單新增至預設 [工作] 資料夾。

Sub AddForm() 
 Dim myNamespace As outlook.NameSpace 
 Dim myItems As outlook.Items 
 Dim myFolder As outlook.Folder 
 Dim myItem As outlook.TaskItem 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myFolder = _ 
 myNamespace.GetDefaultFolder(olFolderTasks) 
 Set myItems = myFolder.Items 
 Set myItem = myItems.Add("IPM.Task.myTask") 
End Sub

另請參閱

Items 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。