Items.ItemAdd-Ereignis (Outlook)

Tritt ein, wenn ein oder mehrere Elemente zur angegebenen Auflistung hinzugefügt werden. Dieses Ereignis wird nicht ausgeführt, wenn eine große Anzahl von Elementen gleichzeitig zum Ordner hinzugefügt wird. Dieses Ereignis ist in Microsoft Visual Basic Scripting Edition (VBScript) nicht verfügbar.

Syntax

Ausdruck. ItemAdd( Element )

Ausdruck Eine Variable, die ein Items-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Item	Erforderlich	Objekt	Das hinzugefügte Element.

Beispiel

In diesem beispiel für Visual Basic for Applications (VBA) wird das Kontaktelement an eine E-Mail-Nachricht angefügt und an eine Verteilerliste mit dem Namen "Vertriebsteam" gesendet, wenn ein neuer Kontakt zum Ordner Kontakte hinzugefügt wird. Der Beispielcode muss in einem Klassenmodul platziert werden, 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

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.