1. #1
    Membre expert Avatar de Jon Shannow
    Homme Profil pro
    Responsable de service informatique
    Inscrit en
    avril 2011
    Messages
    2 319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Responsable de service informatique
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : avril 2011
    Messages : 2 319
    Points : 3 852
    Points
    3 852

    Par défaut 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
    Au nom du pèze, du fisc et du St Estephe
    Au nom du fric, on baisse son froc...

  2. #2
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 045
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 045
    Points : 5 303
    Points
    5 303
    Billets dans le blog
    13

    Par défaut

    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

  3. #3
    Membre expert Avatar de Jon Shannow
    Homme Profil pro
    Responsable de service informatique
    Inscrit en
    avril 2011
    Messages
    2 319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Responsable de service informatique
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : avril 2011
    Messages : 2 319
    Points : 3 852
    Points
    3 852

    Par défaut

    Merci pour cette réponse,

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

    JS
    Au nom du pèze, du fisc et du St Estephe
    Au nom du fric, on baisse son froc...

  4. #4
    Membre expert Avatar de Jon Shannow
    Homme Profil pro
    Responsable de service informatique
    Inscrit en
    avril 2011
    Messages
    2 319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Responsable de service informatique
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : avril 2011
    Messages : 2 319
    Points : 3 852
    Points
    3 852

    Par défaut

    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
    Au nom du pèze, du fisc et du St Estephe
    Au nom du fric, on baisse son froc...

  5. #5
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 045
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 045
    Points : 5 303
    Points
    5 303
    Billets dans le blog
    13

    Par défaut

    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

Discussions similaires

  1. Réponses: 3
    Dernier message: 10/06/2015, 19h27
  2. [XL-2010] VBA exel - Rechercher un classeur dans un sous dossier dont le nom est inconnu
    Par rsuf91 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 15/12/2014, 14h10
  3. [OL-2007] déplacer un mail dans un sous dossier
    Par pepsister dans le forum VBA Outlook
    Réponses: 1
    Dernier message: 30/07/2014, 16h47
  4. Réponses: 2
    Dernier message: 11/01/2013, 12h05

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo