bonjour,
Nous sommes en POP depuis la création de notre entreprise et avons une macro qui permet le tri des mails à leur envoi :
Nous passons en IMAP maintenant mais cette macro ne marche plus lorsque l'on est en IMAP. Je n'ai pas trouvé sur le web de macro adaptée pour l'IMAP, savez-vous ce qu'il faudrait modifier pour que cela fonctionne ?
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 Private Sub Application_ItemSend(ByVal Item As Object, Cancel As _ Boolean) 'By Oliv' 9/02/2007 pour Outlook 2003 If Not Item.Class = olMail Then GoTo fin Dim objNS As NameSpace Dim objFolder As MAPIFolder Set objNS = Application.GetNamespace("MAPI") Set objFolder = objNS.PickFolder If TypeName(objFolder) = "Nothing" Then Set objNS = Application.GetNamespace("MAPI") Set objFolder = objNS.Folders("Dossiers personnels").Folders("Divers") End If Set Item.SaveSentMessageFolder = objFolder fin: End Sub
Merci par avance de vos retours et bel été !
Bien cordialement
Maxime
Partager