Discussion :

[waspy59]

Bonjour à tous,

J'ai trouvé sur le net un code vba pour permettre de cherche un dossier particulier dans ma boite de réception.

Voici le code:

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
 
Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
 
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
 
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
 
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
 
 
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
 
  On Error Resume Next
 
  Set FindInFolders = Nothing
 
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function

Le problème est que sur mon Outlook j'ai deux boites de réception avec énormément de sous dossiers... du coup quand je lance ce code ça rame méchamment et outlook devient inutilisable.

D'ou ma question: est-il possible d'améliorer ce code afin d'éviter que ça rame? Peut-être en ajoutant un treeview pour sélectionner le dossier parent pour la recherche (je ne sais pas faire ce point: afficher dans un Treeview les différents dossiers de mes boites de réception.... je ne sais même pas si c'est faisable)?

Je suis preneur de toute aide ;-)

merci

[Oliv-]

Bonjour,
La solution c'est effectivement de stocker les infos dans un treeview, ou dans une variable quelconque (array , collection, dictionnaire), cela peut être même un fichier txt.
et prévoir une option pour rafraîchir cette liste

[waspy59]

Hello

Cool donc c'est faisable de stocker l'arborescence des mes boites dans un treeview. Je vais regarder de ce côté là et je reviens si je galère.

merci