Propriété Folder.Folders (Outlook)
Renvoie la collection Folders qui représente tous les dossiers contenus dans le dossier spécifié. En lecture seule.
Syntaxe
expression. Folders
expression Variable qui représente un objet Folder.
Remarques
L’objet NameSpace est la racine de tous les dossiers pour l’espace de nom donné.
Exemple
Cet exemple Visual Basic pour Applications (VBA) utilise la méthode Folders.Add pour ajouter le nouveau dossier nommé « Mes contacts personnels » au dossier Contacts par défaut.
Sub CreatePersonalContacts()
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 Personal Contacts")
End Sub
Cet exemple VBA utilise la méthode Folders.Add pour ajouter deux nouveaux dossiers dans le dossier Tasks . Le premier dossier, « Dossier Mes notes », contient des éléments de note. Le deuxième dossier, « Mon dossier de contacts », contient des éléments de contact. Si les dossiers existent déjà, une boîte de message en informera l’utilisateur.
Sub CreateFolders()
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myNotesFolder As Outlook.Folder
Dim myContactFolder As Outlook.Folder
Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderTasks)
On Error GoTo ErrorHandler
Set myNotesFolder = _
myFolder.Folders.Add("My Notes Folder", olFolderNotes)
Set myContactFolder = _
myFolder.Folders.Add("My Contacts Folder", olFolderContacts)
Exit Sub
ErrorHandler:
MsgBox "Error creating the folder. The folder may already exist."
Resume Next
End Sub
Voir aussi
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.