VBA Outlook Pickfolder
GilLyon69
Messages postés
2
Statut
Membre
-
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
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
A voir également:
- VBA Outlook Pickfolder
- Synchroniser agenda google et outlook - Guide
- Copie cachée outlook - Guide
- Supprimer compte outlook - Guide
- Créer un compte outlook gratuit - Guide
- Telecharger outlook pour pc - Télécharger - Mail
2 réponses
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
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
