Événement Items.ItemRemove (Outlook)

Survient lorsqu’un élément est supprimé de la collection spécifiée.

Syntaxe

expression. ItemRemove

expression Variable qui représente un objet Items .

Remarques

Cet événement ne s’exécute pas lorsque le dernier élément d’un fichier dossiers personnels (.pst) est supprimé, ou si 16 éléments ou plus sont supprimés à la fois d’un fichier PST, d’une boîte aux lettres Microsoft Exchange ou d’un dossier public Exchange. Cet événement n'est pas disponible dans Microsoft Visual Basic Scripting Edition (VBScript).

Exemple

Cet exemple Microsoft Visual Basic pour Applications (VBA) montre comment envoyer de façon facultative un message de notification à un groupe de travail lorsque l’utilisateur supprime un contact du dossier Contacts par défaut. L’exemple de code doit être placé dans un module de classe, et la Initialize_handler routine doit être appelée avant que la procédure événementielle puisse être appelée par 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

Voir aussi

Éléments, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.