通过

Items.ItemAdd 事件 (Outlook)

  • 项目

在将一个或多个项目添加到指定的集合中时发生。 该事件在将大量项目同时添加到文件夹时不运行。 该事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。

语法

expression。 ItemAdd ( 项 )

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

参数

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

示例

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

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。