在将项目添加到指定的集合中时发生。该事件在 VBScript 中不可用。
Sub object_ItemAdd(ByVal Item As Object)
object 该表达式的值为“应用于”列表中的一个对象。
Item 必选。添加的项目。
在本示例中,当新联系人添加到“联系人”文件夹中时,将联系人项目附加到电子邮件中并发送给名为“Sales Team”的通讯组列表。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler
例程。
Dim myOlApp As Outlook.Application
Public WithEvents myOlItems As Outlook.Items
Public Sub Initialize_handler()
Set myOlItems = myOlApp.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