Results.ItemAdd-Ereignis (Outlook)
Tritt ein, wenn ein oder mehrere Elemente zur angegebenen Auflistung hinzugefügt werden.
Syntax
Ausdruck. ItemAdd( _Item_ )
Ausdruck Eine Variable, die ein Results-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Item | Erforderlich | Objekt | Das hinzugefügte Element. |
HinwBemerkungeneise
Dieses Ereignis wird nicht ausgeführt, wenn eine große Anzahl von Elementen gleichzeitig zum Ordner hinzugefügt wird. Sie ist in Microsoft Visual Basic Scripting Edition (VBScript) nicht verfügbar.
Beispiel
In diesem Visual Basic for Applications (VBA)-Beispiel wird das Kontaktelement an eine E-Mail-Nachricht angefügt und an eine Verteilerliste mit dem Namen "Vertriebsteam" gesendet, wenn dem Ordner Kontakte ein neuer Kontakt hinzugefügt wird. 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_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
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.