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:
J'ai copié la macro dans "ThisOutlookSession", mais rien ne se passe lorsque j'envois un mail.
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
Quelqu'un a-t-il une idée?
Merci d'avance,
Olivier.
Partager