通过

Outlook) (Results.ItemAdd 事件

  • 项目

在将一个或多个项目添加到指定的集合中时发生。

语法

expression。 ItemAdd( _Item_ )

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

参数

名称 必需/可选 数据类型 说明
Item 必需 Object 已添加的项目。

备注

该事件在将大量项目同时添加到文件夹时不运行。 它在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。

示例

在此Visual Basic for Applications (VBA) 示例中，将新联系人添加到“联系人”文件夹时，联系人项目将附加到电子邮件并发送到名为“销售团队”的通讯组列表。 示例代码必须放在类模块中，并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler 例程。

Public WithEvents myOlItems As Outlook.Items 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items 
 
End Sub 
 
 
 
Private Sub myOlItems_ItemAdd(ByVal Item As Object) 
 
 Dim myOlMItem As Outlook.MailItem 
 
 Dim myOlAtts As Outlook.Attachments 
 
 Set myOlMItem = myOlApp.CreateItem(olMailItem) 
 
 myOlMItem.Save 
 
 
 
 Set myOlAtts = myOlMItem.Attachments 
 
 ' Add new contact to attachments in mail message 
 
 myOlAtts.Add Item, olByValue 
 
 myOlMItem.To = "Sales Team" 
 
 myOlMItem.Subject = "New contact" 
 
 myOlMItem.Send 
 
End Sub

另请参阅

结果对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。