Items.ItemAdd event (Outlook)

Survient lorsqu'un ou plusieurs éléments sont ajoutés à la collection spécifiée. Cet événement n'est pas exécuté lorsqu'un nombre important d'éléments sont ajoutés à un dossier en même temps. Cet événement n'est pas disponible dans Microsoft Visual Basic Scripting Edition (VBScript).

Syntaxe

expression. ItemAdd( Élément )

expression Variable qui représente un objet Items .

Paramètres

Exemple

Dans cet exemple Visual Basic pour Applications (VBA), lorsqu’un nouveau contact est ajouté au dossier Contacts , l’élément de contact est joint à un message électronique et envoyé à une liste de distribution nommée « Sales Team ». 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_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

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.