Déplacer un courriel vers un dossier PST

Bonjour,

J'ai une macro qui gère les courriels sur un serveur en donnant un nom de fichier selon les normes de notre entreprises.
Mon problème est qu'une fois le courriel classé, je dois le déplacer dans un dossier quelconque.

J'arrive à classer le courriel dans un sous-dossier précis ou à créer un sous-dossier dans le dossier du courriel.

Exemple: Je déplace le message XYZ dans le dossier "Éléments Supprimés" ou dans le sous-dossier "Boîte de réception\Classé".

Mon problème est qu'on m'a demandé ceci:

L'emplacement du dossier devra être choisi par l'utilisateur et peut-être dans la boîte de Outlook ou dans un PST.

Ma question est comment je peux faire pour afficher la liste des dossiers et PST créés dans MSOutlook de l'usager? Et permettre à l'utilisateur de me pointer celui qu'il veut?

Merci

Bonjour,
Utilises pickfolder

Code:

---

1 2 3 4 5 6

Dim fldDestination As MAPIFolder Set fldDestination = Application.GetNamespace("MAPI").PickFolder If Not fldDestination Is Nothing Then ... End If

---

Merci.
En effet, cela a fonctionné.
Par contre, est-ce que c'est possible de faire afficher la liste dans une listebox et après l'utilisateur aura qu'à choisir le dossier voulu?

Bonjour,

Pas avec PICKFOLDER.
Il faudrait créer ta listbox en parcourant tous les dossiers pour l'alimenter, c'est faisable mais dans ce cas vaut mieux utiliser un treeview.

D'accord, mais comment faire.
J'ai une listbox je sais comment l'alimenter mais qu'elle est la formule pour le "treeview"?

Bonjour,

http://lmgtfy.com/?q=treeview+vba+site%3Adeveloppez.com