Mais dans quel sous-dossier est ce mail ?

Version imprimable

03/10/2017, 08h57
Jon Shannow

Mais dans quel sous-dossier est ce mail ?

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

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

Code:

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

03/10/2017, 11h13
Jon Shannow

Merci pour cette réponse,

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

JS
03/10/2017, 11h31
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... :calim2:

JS

SAlut,
essaye avec cette version

Code:

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

29/12/2017, 01h57
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.
29/12/2017, 11h01
Oliv-

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

Citation:

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