閱讀英文

共用方式為


Items.Add 方法 (Outlook)

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

語法

表達式_Type_

表達 代表 Items 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Type 選用 Variant 新項目的 Outlook 項目類型。 指定要建立自定義表單的 MessageClass 。 可以是下列其中一個 OlItemType 常數: olAppointmentItemolContactItemolJournalItemolMailItemolNoteItemolPostItemolTaskItem,或任何有效的訊息類別。

傳回值

代表新 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 支援與意見反應