Folders.Add, méthode (Outlook)

Article
04/07/2023

Crée un dossier dans la collection Folders .

Syntaxe

expression. Ajouter (Nom, Type)

expression Variable qui représente un objet Folders.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Name	Obligatoire	Chaîne	Nom complet du nouveau dossier.
Type	Facultatif	Entier long	Type de dossier Outlook du nouveau dossier. Si le type de dossier n'est pas spécifié, le nouveau dossier possède par défaut le même type que le dossier créé. Il peut s’agir de l’une des constantes OlDefaultFolders suivantes : olFolderCalendar, olFolderContacts, olFolderDrafts, olFolderInbox, olFolderJournal, olFolderNotes ou olFolderTasks. (Les constantes olFolderConflicts, olFolderDeletedItems, olFolderJunk, olFolderLocalFailures, olFolderManagedEmail, olFolderOutbox, olFolderRssSubscriptions, olFolderSentMail, olFolderServerFailures, olFolderSyncIssues, olFolderToDo et olPublicFoldersAllPublicFolders ne peuvent pas être spécifiées pour cet argument.

Valeur renvoyée

Objet Folder qui représente le nouveau dossier.

Exemple

Cet exemple VBA utilise la méthode Add pour ajouter le nouveau dossier nommé « Mes contacts » au dossier Contacts actuel (par défaut).

Sub AddContactsFolder() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myNewFolder As Outlook.Folder 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts) 
 Set myNewFolder = myFolder.Folders.Add("My Contacts") 
End Sub

Cet exemple VBA utilise la méthode Add pour ajouter trois nouveaux dossiers dans le dossier Tâches. Le premier dossier, Dossier notes, contient des éléments de note. Le deuxième dossier, Dossier des contacts, contient des éléments de contact. Le troisième dossier, Dossier public, sera un dossier public. Si les dossiers existent déjà, une boîte de message en informera l’utilisateur.

Sub AddFolders() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myNotesFolder As Outlook.Folder 
 Dim myContactsFolder As Outlook.Folder 
 Dim myPublicFolder As Outlook.Folder 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderTasks) 
 On Error GoTo ErrorHandler 
 Set myNotesFolder = myFolder.Folders.Add("Notes Folder", olFolderNotes) 
 Set myContactsFolder = myFolder.Folders.Add("Contacts Folder", olFolderContacts) 
 Set myPublicFolder = myFolder.Folders.Add("Public Folder", olPublicFoldersAllPublicFolders) 
 Exit Sub 
ErrorHandler: 
 MsgBox "This folder already exists!" 
 Resume Next 
End Sub

Voir aussi

Folders, 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.

Partager via