IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Outlook Discussion :

Macro pour n'afficher que les mails d'une catégorie donnée


Sujet :

VBA Outlook

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Août 2010
    Messages
    159
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 159
    Points : 73
    Points
    73
    Par défaut Macro pour n'afficher que les mails d'une catégorie donnée
    Bonjour le Forum,

    Je passe mes journées à régler les affichages sur Outlook.
    Ce serait bcp plus simple pour moi de pouvoir cliquer sur un bouton de la barre d'outils accès rapide pour n'afficher que les mails d'une catégorie donnée.
    Est-ce faisable en VBA ?
    Si oui, quelqu'un peut-il m'aider siouplé ?

    Merci.

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Bonjour,
    Il faut que la vue existe bein sûr

    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
    Sub change_view()
        Dim myOlApp As Outlook.Application
        Dim myFolder As Outlook.Folder
        Dim MyExpl As Explorer
        Set myOlApp = Outlook.Application
     
    Set MyExpl = ActiveExplorer
        Dim MyView
        MyView = MyExpl.CurrentView
        Debug.Print "old view :" & MyView
        MyExpl.CurrentView = "sansConv" 'la vue souhaitée
        MyExpl.CurrentView.Reset
        MyExpl.CurrentView.Apply
     
     
    End Sub
    Il y a aussi une option dans la menu changer l'affichage pour appliquer le changement à tous les dossier

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    Août 2010
    Messages
    159
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 159
    Points : 73
    Points
    73
    Par défaut
    Waouh !!!

    Super, merci beaucoup.
    Ça me fait gagner 3 (secondes) x 3256 (fois par jour) = 1 heure de travail quotidien !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 13/12/2013, 18h59
  2. Réponses: 1
    Dernier message: 13/04/2013, 12h19
  3. Réponses: 2
    Dernier message: 17/03/2011, 21h45
  4. Logiciel pour récupérer que les mails dans une page web
    Par mouss4rs dans le forum Autres Logiciels
    Réponses: 0
    Dernier message: 24/07/2010, 14h41
  5. Réponses: 5
    Dernier message: 07/10/2008, 11h25

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