Bonjour
Je voulais revenir sur ce code qui permet d'aller dans le sous-dossier toto\titi de la Boîte de réception (Inbox).
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) ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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.
Partager