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 de tri des messages sortants [OL-2007]


Sujet :

VBA Outlook

  1. #1
    Candidat au Club
    Homme Profil pro
    Inscrit en
    Mars 2012
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Mars 2012
    Messages : 3
    Points : 2
    Points
    2
    Par défaut Macro de tri des messages sortants
    Bonjour à tous,

    Je cherche une macro pour trier les mails sortants au moment de leur envoi (avec ouverture d'une fenêtre de dialogue pour sélectionner le dossier de rangement du mail).
    J'ai récupéré la macro suivante dans une discussion précédente sur OL-2003:


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
     
        Dim objNSpace As NameSpace
        Dim fldDestination As MAPIFolder
        Dim items As MailItem
        If Not items.Class = olMail Then Exit Sub
        Set objNSpace = Application.GetNamespace("MAPI")
        Set fldDestination = objNSpace.PickFolder
        Set Item.SaveSentMessageFolder = fldDestination
     
    End Sub
    J'ai copié la macro dans "ThisOutlookSession", mais rien ne se passe lorsque j'envois un mail.

    Quelqu'un a-t-il une idée?

    Merci d'avance,
    Olivier.

  2. #2
    Membre expert

    Homme Profil pro
    Spécialiste progiciel
    Inscrit en
    Février 2010
    Messages
    1 747
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Spécialiste progiciel
    Secteur : Service public

    Informations forums :
    Inscription : Février 2010
    Messages : 1 747
    Points : 3 016
    Points
    3 016
    Par défaut
    Bonjour,

    C'est normal tu compares la classe de l'objet items qui n'est pas initialisé donc elle est vide. Il faut comparer celle de l'objet Item.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
        Dim objNSpace As NameSpace
        Dim fldDestination As MAPIFolder
        If Not Item.Class = olMail Then Exit Sub
        Set objNSpace = Application.GetNamespace("MAPI")
        Set fldDestination = objNSpace.PickFolder
        Set Item.SaveSentMessageFolder = fldDestination
    End Sub
    Cordialement,
    Christophe

    Merci de ne pas oublier de mettre résolu quand le sujet l'est. Cela aide tous les DVPnautes dans leur recherche

  3. #3
    Candidat au Club
    Homme Profil pro
    Inscrit en
    Mars 2012
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Mars 2012
    Messages : 3
    Points : 2
    Points
    2
    Par défaut
    Bonjour,

    Merci pour la réponse.
    En fait j'avais relevé cette erreur (je me suis trompé dans le code que j'ai copié dans ma question).
    Mais le code corrigé ne marche pas pour autant. J'envois mes mails et rien ne se passe, alors que, si j'ai bien compris, une fenêtre devrait s'ouvrir pour sélectionner le dossier où archiver le mail.
    Ne peut-il pas s'agir d'une différence de syntaxe due au passage à OL-2007, la macro ayant été écrite pour OL-2003?

    Olivier.

  4. #4
    Membre expert

    Homme Profil pro
    Spécialiste progiciel
    Inscrit en
    Février 2010
    Messages
    1 747
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Spécialiste progiciel
    Secteur : Service public

    Informations forums :
    Inscription : Février 2010
    Messages : 1 747
    Points : 3 016
    Points
    3 016
    Par défaut
    Bonjour,

    Je ne pense que la migration sur Outlook 2007 pose problème, ces objets n'ont pas changé.
    Es-tu sûr que les macros sont activées? Ne serait-ce pas un problème de sécurité?
    Cordialement,
    Christophe

    Merci de ne pas oublier de mettre résolu quand le sujet l'est. Cela aide tous les DVPnautes dans leur recherche

  5. #5
    Candidat au Club
    Homme Profil pro
    Inscrit en
    Mars 2012
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Mars 2012
    Messages : 3
    Points : 2
    Points
    2
    Par défaut
    Bonjour,

    Effectivement il s'agissait d'un problème de sécurité des macros, avec l'option "avertissement pour toutes les macros" ça marche.

    Merci pour le tuyau.

    Cordialement,
    Olivier.

  6. #6
    Futur Membre du Club
    Inscrit en
    Janvier 2013
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Janvier 2013
    Messages : 4
    Points : 5
    Points
    5
    Par défaut
    Bonjour tout le monde.
    en farfouillant sur le forum, j'ai trouvé ici comment faire pour classer les mails envoyés avec Outlook.par contre il me reste un petit problème.
    quand je clique sur "ENVOYER", la fenêtre pour le choix du dossier s'ouvre sans problème.
    par contre si pour une raison ou une autre, je fais annuler à ce moment là, j'ai le message suivant :
    Erreur d'éxecution '-2147417848(80010108)'
    la méthode 'SaveSentMessageFolder' de l'objet'_MailItem' a échoué

    comment corriger ça ?
    merci d'avance

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

Discussions similaires

  1. [Javamail] Analyse des messages sortants
    Par maxine dans le forum Java EE
    Réponses: 2
    Dernier message: 14/10/2013, 19h28
  2. Réponses: 6
    Dernier message: 27/08/2013, 13h24
  3. Impossible d'envoyer des messages sortants à certains domaines
    Par @robase dans le forum Exchange Server
    Réponses: 0
    Dernier message: 30/12/2011, 19h17
  4. Tri des messages
    Par Sergejack dans le forum Evolutions du club
    Réponses: 2
    Dernier message: 14/08/2009, 13h24
  5. Signature numérique des messages sortants
    Par scenic29 dans le forum VBA Outlook
    Réponses: 3
    Dernier message: 03/10/2007, 17h38

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