VBA Outlook Pickfolder

GilLyon69 Messages postés 2 Statut Membre -  
GilLyon69 Messages postés 2 Statut Membre -
Bonjour,
Je cherche à faire un pickfolder sur un dossier précis.
Pour l'instant je n'arrive qu'à afficher l'ensemble des dossiers mais je voudrais tomber directement sur le dossier dans lequel j'ai plusieurs sous-dossiers. Le but est de sélectioner un de ces dossiers pour y archiver mes mails.

Je vous remercie
GB

2 réponses

  2.
    GilLyon69 Messages postés 2 Statut Membre
     
    Bonjour,
    Merci de votre réponse.
    En fait je réussis à localiser mon répertoire et à afficher son contenu (voir ci dessous)
    Ce que je cherche à faire :
    Dans une macro je veux ouvrir une boite de dialogue pour sélectionner le sous-répertoire dans lequel je veux ranger mon message (comme avec un pickFolder).
    Simplement au lieu d'afficher l'ensemble de l'arbrescence de Outlook, je voudrais n'affichier à l'aide de la méthode pickfolder que le répertoire qui m'interesse. En fait c'est juste pour avoir à développer toutes l'arboresence.

    GB

    Sub DisplayATaskFolder()

    Dim myNamespace As Outlook.NameSpace
    Dim mynewfolder As Outlook.Folder

    Set myNamespace = Application.GetNamespace("MAPI")
    Set mynewfolder = myNamespace.Folders("Ancien Outlook").Folders("Boîte de réception").Folders("1 TRANSPORT")

    mynewfolder.Display

    End Sub
    0