Discussion :

[Aposto]

Bonjour à tous,

je connais un peu le VBA mais pas pour outlook, je galère depuis ce matin avec son modèle objet.

En fait je n'arrive pas à énumérer les dossiers qui sont à la racine de l'utilisateur, voir la capture:

comme ils ne sont pas dans "inbox" je n'arrive pas à y accéder.


ce bout de code ne renvoie aucun dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub lanceTout()
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Set myNameSpace = Application.GetNamespace("MAPI")
For Each myFolder In myNameSpace.Folders
    Debug.Print myFolder.Name
Next
End Sub

je souhaiterai en effet parcourir tous les dossiers un par un et enregistrer les mails sur un dossier réseau qui porte le même nom que le dossier dans Outlook grâce à la macro de Oliv et un petite adaptation (de ma part) pour la création du dossier.

Merci d'avance pour les pistes.

Sébastien.

[Oliv-]

Bonjour,
remplaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each myFolder In myNameSpace.Folders

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each myFolder In myNameSpace.getdefaultfolder(olFolderInbox).parent.Folders

[Aposto]

Merci c'est exactement ce qu'il me fallait, mais je pensai qu'il y aurait un objet directement utilisable, sans passer par le "parent".

En tout cas merci encore.

Sébastien.

[Oliv-]

Si tu fais comme cela tu y arriveras aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myNameSpace.Folders(1).folders