Items.Add 方法 (Outlook)

在文件夹的 Items 集合中创建一个新 Outlook 项目。

语法

表达式。添加_Type_

表达 一个代表 Items 对象的变量。

参数

名称	必需/可选	数据类型	说明
Type	可选	Variant	新项 Outlook 项目类型。 指定 邮件类 来创建自定义窗体。 可以是以下 OlItemType 常量之一： olAppointmentItem、 olContactItem、 olJournalItem、 olMailItem、 olNoteItem、 olPostItem 或 olTaskItem 或任何有效的邮件类。

返回值

一个代表新 Outlook 项目的 Object 值。

备注

如果未指定，Outlook 项目的 类型 属性默认为该文件夹的类型或 MailItem 如果父文件夹不类型。

示例

本 VBA 示例获取当前的联系人文件夹并为其添加新的联系人对象基于另一个联系人字段中设置一些初始值。 要运行此示例中的没有任何错误，请在联系人文件夹中存在的有效联系人姓名替换 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。