Discussion :

[Jon Shannow]

Bonjour,

Un des utilisateurs (et pas des moindre - c'est le Boss) me demande un truc sur lequel je sèche ...

Il organise, dans OL 2010 ces mails en dossiers/sous-dossiers/sous-dossiers/etc... Une arborescence assez complexe.

Quand il fait une recherche d'un mail, en étendant la recherche aux sous-dossiers, il retrouve bien le mail, mais il ne voit pas l'arborescence complète ce qui le gêne.

Y a t-il un moyen qu'OL lui indique (d'une manière ou d'une autre) l'arborescence complète suite à une recherche ?

Merci d'avance

JS

[Oliv-]

Bonjour,
Effectivement c'est un problème voici une macro qui fait le job

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub go_OU()
    If ActiveInspector.CurrentItem.Class = olMail Then
        Dim OITEM As Outlook.MailItem
        Set OITEM = ActiveInspector.CurrentItem
        MsgBox "Cet Email est classé dans " & vbCr & OITEM.Parent.FullFolderPath, vbOKOnly, "Où est -il classé ?"
        Set OITEM = Nothing
    End If
End Sub

[Jon Shannow]

Merci pour cette réponse,

Il n'y aucun moyen qui ne passe pas par l'utilisation d'une macro ?

JS

[Jon Shannow]

Je ne suis pas super habitué des macros dans OL.

J'utilise pour ma part OL2016, j'ai créé la macro que tu m'as fourni, mais elle ne fonctionne pas.

J'ai un message étrange :
Erreur d'execution : 91
Variable objet ou variable de bloc With non définie

Il s'arrête sur la première ligne !

J'ai vérifié, c'est bien le même code que ce que tu as écris...

JS

[Oliv-]

SAlut,
essaye avec cette version

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
Private Sub go_OU()
    Dim obj As Object
    Dim OITEM As Outlook.MailItem
 
    Set obj = Application.ActiveWindow
    If TypeOf obj Is Outlook.Inspector Then
        Set obj = obj.CurrentItem
    Else
        Set obj = obj.Selection(1)
    End If
 
    If obj.Class = olMail Then
 
        Set OITEM = obj
        MsgBox "[" & OITEM.Subject & "]" & vbCr & "Cet Email est classé dans " & vbCr & OITEM.Parent.FullFolderPath, vbOKOnly, "Où est -il classé ? - OL_ADDIN_GS"
        Set OITEM = Nothing
    End If
 
End Sub

[SR.SFC]

Bonjour,

Vive les macros, mais y'a pas que ça dans la vie.
Il suffit de lancer une recherche sur la boite mail et de classer les résultats par dossier. Cela donne une première indication.
Pour savoir où se trouve le dossier, c'est plus complexe et moins pratique, il faut aller dans les propriété du dossier du compte.
La liste de tous les dossier apparait.

[Oliv-]

Salut
Ta méthode ne répond pas vraiment à la question posée.

Il organise, dans OL 2010 ces mails en dossiers/sous-dossiers/sous-dossiers/etc... Une arborescence assez complexe