Results.ItemRemove event (Outlook)
Tritt ein, wenn ein Element aus der angegebenen Auflistung gelöscht wird.
Syntax
Ausdruck. ItemRemove
Ausdruck Eine Variable, die ein Results-Objekt darstellt.
Hinweise
Dieses Ereignis wird nicht ausgeführt, wenn das letzte Element in einer Persönliche Ordner-Datei (PST) gelöscht wird oder wenn 16 oder mehr Elemente gleichzeitig aus einer PST-Datei, einem Microsoft Exchange-Postfach oder einem öffentlichen Exchange-Ordner entfernt werden.
Dieses Ereignis ist in Microsoft Visual Basic Scripting Edition (VBScript) nicht verfügbar.
Beispiel
In diesem Beispiel für Microsoft Visual Basic für Applikationen (VBA) wird optional eine Benachrichtigung an eine Arbeitsgruppe gesendet, wenn ein Benutzer einen Kontakt aus dem Standardordner Kontakte entfernt. Der Beispielcode muss sich in einem Klassenmodul befinden, und die Initialize_handler-Routine muss aufgerufen werden, bevor die Ereignisprozedur von Microsoft Outlook aufgerufen werden kann.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.