VBA outlook - Aller dans un dossier spécifique
Bonjour :coucou:
Je voulais revenir sur ce code qui permet d'aller dans le sous-dossier toto\titi de la Boîte de réception (Inbox).
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
Sub Affiche_Dossier()
Dim oOLApp As Outlook.Application
Dim oOLXplr As Outlook.Explorer
Dim oOLFldInbox As Outlook.Folder, oOLFld As Outlook.Folder
' Tenter de récupérer une instance d'Outlook
On Error Resume Next
Set oOLApp = GetObject(, "Outlook.Application")
On Error GoTo 0
' Si échec tentative, créer Outook
If oOLApp Is Nothing Then
Set oOLApp = CreateObject("Outlook.Application")
End If
' Référencer le dossier Outlook Inbox
Set oOLFldInbox = oOLApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
MsgBox oOLFldInbox
' S'assurer qu'on a une fenêtre Outlook visible
If oOLApp.Explorers.Count = 0 Then
Set oOLXplr = oOLApp.Explorers.Add(oOLFldInbox)
oOLXplr.Display
MsgBox oOLXplr
Else
' Force l'affichage de la première fenêtre d'exploration
Set oOLXplr = oOLApp.Explorers(1)
oOLXplr.Display
MsgBox oOLXplr
End If
' Aller dans sous-dossier "toto/titi" de Inbox
' . On part du dossier Inbox et on descend
Set oOLFld = oOLFldInbox.Folders.item("toto")
Set oOLFld = oOLFld.Folders.item("titi")
' . On définit le dossier de la fenêtre d'exploration Outlook
Set oOLXplr.CurrentFolder = oOLFld
End Sub |
Que faut-il modifier dans ce code pour aller dans un dossier qui n'est pas parent de la boîte de réception (Inbox) ?
J'ai effectivement des dossiers qui sont aux mêmes niveau que boîte de réception, Boite d'envoi, Éléments envoyés, etc ...
Merci par avance. ;)
