Bonjour, j'ai adapté un des code du site pour déplacer des messages outlook d'un répertoire à un autre. J'aimerai que ce code ne fasse le déplacement QUE pour les messages déjà lu, mais je n'arrive pas à implémenter le code avec la propriété unread. Voici mon code : Code :Function ArchiverElements() Dim Ol_App As New Outlook.Application Dim Ol_MAPI As Outlook.NameSpace Dim Ol_FolderFrom As Outlook.MAPIFolder Dim Ol_FolderTo As Outlook.MAPIFolder Dim Ol_Items As Outlook.MailItem Dim NoItem As Integer Set Ol_MAPI = Ol_App.GetNamespace("MAPI") Set Ol_FolderFrom = Ol_MAPI.GetDefaultFolder(olFolderInbox).Folders("3DS") Set Ol_FolderTo = Ol_FolderFrom.Parent.Folders("3ds_OLD") For NoItem = Ol_FolderFrom.Items.Count To 1 Step -1 Set Ol_Items = Ol_FolderFrom.Items(NoItem) Ol_Items.Move Ol_FolderTo Next NoItem Set Ol_Items = Nothing Set Ol_FolderTo = Nothing Set Ol_FolderFrom = Nothing Set Ol_MAPI = Nothing Set Ol_App = Nothing End Function Si vous avez une idée, elle sera la bienvenue. Merci d'avance Fred |