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:

---

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.

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:

---

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

---

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.

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é?

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.

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