Items.Add, méthode (Outlook)

  • Article

Crée un élément Outlook dans la collection Items pour le dossier.

Syntaxe

expression. Ajouter_Type_

Expression Variable qui représente un objet Items .

Parameters

Nom Requis/Facultatif Type de données Description
Type Facultatif Variant Type d’élément Outlook du nouvel élément. Spécifie un MessageClass pour créer des formulaires personnalisés. Il peut s’agir de l’une des constantes OlItemType suivantes : olAppointmentItem, olContactItem, olJournalItem, olMailItem, olNoteItem, olPostItem ou olTaskItem, ou toute classe de message valide.

Valeur renvoyée

Valeur Objet qui représente le nouvel élément Outlook.

Remarques

Si elle n’est pas spécifiée, la propriété Type de l’élément Outlook propose par défaut le type du dossier ou MailItem si le dossier parent n’a pas de type.

Exemple

Cet exemple VBA obtient le dossier Contacts actif et y ajoute un nouvel objet ContactItem et définit des valeurs initiales dans les champs en fonction d’un autre contact. Pour exécuter cet exemple sans erreur, remplacez « Dan Wilson » par un nom de contact figurant dans votre dossier Contacts.

Sub AddContact() 
 Dim myNamespace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myItem As Outlook.ContactItem 
 Dim myOtherItem As Outlook.ContactItem 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts) 
 Set myOtherItem = myFolder.Items("Dan Wilson") 
 Set myItem = myFolder.Items.Add 
 myItem.CompanyName = myOtherItem.CompanyName 
 myItem.BusinessAddress = myOtherItem.BusinessAddress 
 myItem.BusinessTelephoneNumber = myOtherItem.BusinessTelephoneNumber 
 myItem.Display 
End Sub

Cet exemple VBA montre comment ajouter un formulaire personnalisé au dossier Tâches par défaut.

Sub AddForm() 
 Dim myNamespace As outlook.NameSpace 
 Dim myItems As outlook.Items 
 Dim myFolder As outlook.Folder 
 Dim myItem As outlook.TaskItem 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myFolder = _ 
 myNamespace.GetDefaultFolder(olFolderTasks) 
 Set myItems = myFolder.Items 
 Set myItem = myItems.Add("IPM.Task.myTask") 
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.