Событие Results.ItemAdd (Outlook)

Статья
04/07/2023

Происходит при добавлении одного или нескольких элементов в указанную коллекцию.

Синтаксис

выражение. ItemAdd( _Item_ )

Выражение Переменная, представляющая объект Results .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Элемент	Обязательный	Object	Добавленный элемент.

Замечания

Это событие не запускается при одновременном добавлении большого количества элементов в папку. Он недоступен в Microsoft Visual Basic Scripting Edition (VBScript).

Пример

В этом примере Visual Basic для приложений (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

См. также

Объект Results

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через