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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。