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.