Occurs when one or more items are added to the specified collection. This event does not run when a large number of items are added to the folder at once. This event is not available in Microsoft Visual Basic Scripting Edition (VBScript).
Sub object_ItemAdd(ByVal Item As Object)
object An expression that evaluates to one of the objects in the Applies To list.
Item Required. The item that was added.
In this Visual Basic for Applications (VBA) example, when a new contact is added to the Contacts folder, the contact item is attached to an e-mail message and sent to a distribution list named "Sales Team". The sample code must be placed in a class module, and the
Initialize_handler routine must be called before the event procedure can be called by Microsoft Outlook.
Dim myOlApp As New 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