Событие Items.ItemRemove (Outlook)

Статья
04/07/2023

Происходит при удалении элемента из указанной коллекции.

Синтаксис

выражение. ItemRemove

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

Замечания

Это событие не запускается при удалении последнего элемента в файле личных папок (PST) или при одновременном удалении 16 или более элементов из PST-файла, почтового ящика Microsoft Exchange или общедоступной папки Exchange. Это событие недоступно в Microsoft Visual Basic Scripting Edition (VBScript).

Пример

Этот пример Microsoft 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_ItemRemove() 
 
 Dim myOlMItem As Outlook.MailItem 
 
 If MsgBox("Do you want to notify the Sales Team?", vbYesNo + vbQuestion) = vbYes Then 
 
 Set myOlMItem = Application.CreateItem(olMailItem) 
 
 myOlMItem.To = "Sales Team" 
 
 myOlMItem.Subject = "Remove Contact" 
 
 myOlMItem.Body = "Remove the following contact from your list:" 
 
 myOlMItem.Display 
 
 End If 
 
End Sub

См. также

Объект Items

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

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

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