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
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。